Se disponibilizar o arquivo fica mais facil

Se disponibilizar o arquivo fica mais facil

Desculpe, sou novo aqui, segue o anexo.

coloque os botões de opcão para a celula D31
e use esse essa macro

Sub Salvar()
    pl = Array("Aeroporto", "Barra", "BelaVista", "Paralela")
    With Sheets(pl(Cells(31, "d") - 1))
    l2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For l = 4 To 28 Step 2
            If Cells(l, "E") <> "" Then
                .Cells(l2, l / 2 - 1) = Cells(l, "E")
            End If

        Next
    End With
End Sub

Todos os botões, ou somente o de salvar?
Agradecido EdCronos2!!!

coloque os botões de opcão para a celula D31
e use esse essa macro

Sub Salvar()
    pl = Array("Aeroporto", "Barra", "BelaVista", "Paralela")
    With Sheets(pl(Cells(31, "d") - 1))
    l2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For l = 4 To 28 Step 2
            If Cells(l, "E") <> "" Then
                .Cells(l2, l / 2 - 1) = Cells(l, "E")
            End If

        Next
    End With
End Sub

os controle de formulário
aeroporto
barra

selecione um deles e clique com o botão direito e selecione formatar controle e etão coloque o endereço no vinculo de celula
para usar esses controles vai ter que dar um estudada basica no funcionamento