Modificar esta macro.

Trabaja muy bien, solo que necesito que solo copie las columnas impares 1,3,5 etc. Dejando como están las pares 2,4,6 etc.
Por su ayuda mil gracias.
Sub Copiar_Celdasimportes()
Dim Columna As Integer
Dim FilaAgregar As Integer
Dim Recorrer As Integer
Dim NumDatos As Integer
Dim Encontrados As Long
FilaAgregar = 0
For Columna = 1 To 100
NumDatos = WorksheetFunction.CountA(Range(Cells(1, Columna), Cells(301, Columna)))
Encontrados = 0
Recorrer = 0
Do While Encontrados < NumDatos
Recorrer = Recorrer + 1
If Not IsEmpty(Cells(Recorrer, Columna)) Then
Encontrados = Encontrados + 1
FilaAgregar = FilaAgregar + 1
Cells(FilaAgregar, 105) = Cells(Recorrer, Columna)
End If
Loop
Next Columna
End Sub