Modificar macro para copiar datos de bajo de la otra información ya copiada ?

Tengo la siguiente macro

Sub CopiaLista()
Dim ShER As Worksheet
Dim SHDestino3 As Worksheet
Dim Fila As Integer
Dim Coumna As Integer
    Set ShER = Worksheets("Hoja2")
    Set SHDestino3 = Worksheets("Hoja3")
    Fila = ShER.Cells(Rows.Count, 2).End(xlUp).Row
    Coumna = ShER.Cells(4, Columns.Count).End(xlToLeft).Column
    ShER.Range(Cells(4, 2), Cells(Fila, Coumna)).Copy Destination:=SHDestino3.Cells(4, 1)
End Sub

Necesito copiar mas iformación de bajo de la que ya copie

En caso de solo quiero copiar la informacion de columnas salteadas como seria por ejemplo de la columna B, D, F, ¿A cómo seria?