Expertos favor me pueden revisar esta macro

La siguiente macro tengo que hacer que me funcione en diferentes columnas pero no se como trabajar con el siguiente código For i = 1 To 4 les dejo la macro, yo quisiera que la macro completara de la columna 1 hasta la 4, después solo la 6 y por ultimo solo la 8 se las dejo.-

Sub ultimapaso1()
Sheets("PASO1").Select
Dim ulti, libre, i As Integer
ulti = Range("A" & Rows.Count).End(xlUp).Row
For i = 6 To 6
libre = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row
If libre > 0 Then
Range(Cells(libre, i), Cells(libre, i)).Copy
Range(Cells(libre + 1, i), Cells(ulti, i)).PasteSpecial Paste:=xlFormulas
End If
Next
Application.CutCopyMode = False
End Sub