Werte kopieren mittels VBA

Einen schönen Tag wünsche ich Euch allen und für heute Abend ein schönes Fest und einen guten und gesunden Übergang ins neue Jahr.
Folgendes:
ich möchte gernefolgendes versuchen
in Tabelle 1 sollen werte vial Button übernommen werden
hier die Details:
die Werte die in die Haupttabelle übernommen werden sollen befinden sich in tabelle 2
hier ein Beispiel:
Werte befinden sich in:
Zelle A1, B1, C1, D1
der User möchte
Zelle B1 und D1 in die Haupttabelle übernehmen
hier mein Problem:
das unten stehende Makro bezieht sich nur auf eine Posizion
Wie ist es möglich das mehrer Positionen wahlweise( nicht zugleich) kopiert werden können?
Ich hoffe es ist einigermaßen verständlich...
hier der Code:

Sub ZelleKopierenet1()
i = 0
a = 0
e = 13
' e = 13 -- bedeutet bis zu 13 Zellen beginnend am Anfang z.B. D8
' können belegt werden ( D8 ; D10 ; D12 ; usw. bis D8006 ) im 2er Schritt
Sheets("Datenbank Ziele essen trinken").Select
Cells(11, 3).Copy
Sheets("Planungsblatt").Select
For i = a To (e - 1) Step 1
If Len(Cells((8 + (i * 2)), 3)) = 0 Then
Leer = Len(Cells((8 + (i * 2)), 3))
Cells((8 + (i * 2)), 3).PasteSpecial Paste:=xlPasteValues
If Leer = 0 Then Exit For
Else
If i = (e - 1) And Len(Cells((8 + (i * 2)), 3)) > 0 Then
MsgBox ("Alle Zellen belegt")
End If
End If
Next i
End Sub