Cắt dữ liệu tự động trong excel (1 người xem)

[dtlongspt]

Chào tất cả các bạn.
Mình có vấn đề này mà chưa giải quyết được mong các bạn chỉ giáo giùm.
Mình có cấu trúc file excel thế này:

Tên
Địa chỉ
//có một dòng trống ở đây
Tên
Địa chỉ

Bây giờ mình muốn cho dòng địa chỉ lên ngang hàng với tên. Nghĩa là

Tên    Địa chỉ
Tên    Địa chỉ

CSDL rất nhiều làm bằng tay chắc cũng phải mất cả tuần.
Rất mong các bạn có thể giúp mình tìm giải pháp làm tự động.
Xin cảm ơn

 

[sealand]

Mình hình dung cái bạn cần là thế này:

Sub Chuyen()
Dim Cls1 As Range, Cls2 As Range
Set Cls1 = Sheet1.[A1]
Set Cls2 = Sheet1.[C1]
Do While Cls1.Row < Sheet1.[A65536].End(3).Row
Cls1.Resize(2).Copy
Cls2.PasteSpecial Paste:=xlPasteAll, Transpose:=True
Set Cls1 = Cls1.Offset(3)
Set Cls2 = Cls2.Offset(1)
Loop
End Sub