Baseado no seu exemplo.
Sub teste()
ultima_linha = Range("A2").End(xlDown).Row - 1
ultima_col = Range("A1").End(xlToRight).Column + 1
dados1 = Application.Transpose(Cells(2, 1).Resize(ultima_linha, 1).Value)
dados2 = Application.Transpose(Cells(2, 2).Resize(ultima_linha, 1).Value)
Cells(1, ultima_col).Resize(1, UBound(dados1)) = dados1
Cells(2, ultima_col).Resize(1, UBound(dados2)) = dados2
End Sub