Macro que recorra fila y copie en otra fila datos con valor.

Esta es para columnas, quisiera lo mismo pero con filas.

Sub valores()
'Por Luismondelo
fila = 1
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Range("a1").Select
Do While ActiveCell.Value <> "final"
If ActiveCell.Value <> "" Then
Cells(fila, 2).Value = ActiveCell.Value
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub