Copiar diferentes columnas y pegarlas en otra hoja

Tengo una hoja de excel  con 60 columnas, quiero que por medio de varios checkbox (en un formulario) uno por cada columna, que si elijo ó esta habilitado el checkbox 3,8,12,16 y 24 me copie esas columnas seleccionadas y me la pase a una nueva hoja especifica, pero que me las copie todas juntas, una detras de la otra, envio mi codigo que he utilizado pero no logro hacer que se acomoden, al fina me las sobreescribe, ya que no se como decirle que lo pegue en la siguiente columna, porque es dinamica, dependera de la columna que se elija, no es copiar un rango de columnas, es copiar columnas alternas.
Private Sub CommandButton5_Click()
Dim Criteria1, Criteria2, criteria3, criteria4, criteria5, criteria6, criterioa7 As String
Dim Colum As Long
Dim a As Integer
a = 0
If CheckBox1 = True Then
   Hoja5.Activate
   Criteria1 = Range("B7").Select
   'Range(Selection, Selection.End(xlDown).End(xlDown)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
   'Colum = a + 1
End If
If CheckBox2 = True Then
   Hoja5.Activate
   Criteria2 = Range("F7").Select
   'Range(Selection, Selection.End(xlDown).End(xlDown)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
   'a = 0
End If
If CheckBox3 = True Then
   Hoja5.Activate
   criteria3 = Range("G7").Select
   'Range(Selection, Selection.End(xlDown).End(xlDown)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
'End If
   Hoja6.Activate
   Range("B7").Select
   ActiveSheet.Paste
End Sub
Saludos Cordales
[email protected]