Cómo selecciono columnas discontinuas con una Macro Excel

Tengo una Base de datos que contiene varias columnas y requiero para hacer un reporte con la información, pero las tengo en columnas discontinuas y además el número de filas es variable ya que filtro la tabla según un criterio especifico. Lo he realizado pero con procesos separados, les muestro lo que tengo:

Sub copia()
'
' Instrucciones de selleción y copiado
'
Sheets("BDatos").Select
Range("A7:C7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Aporte_Regular_002").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BDatos").Select
Range("H7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Aporte_Regular_002").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BDatos").Select
Range("Z7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A1").Select
Sheets("Aporte_Regular_002").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub

Que me sugieren para hacer la selección en un solo paso, y adicionalmente, como hago para incluir un condicional "IF"ELSE" para seleccionar la página de destino o donde voy ha copiar la información.