Ayuda en Macros

Estimados amigos necesito su ayuda para mejorar este codigo, muchas gracias
Les comento tengo una base de datos en la cual toda la información en una
sola columna (campo), 14 celdas del campo vienen a formar un registro y asi
sucesivamente, lo que requiero es seleccionar estas 14 celdas copiarles luego
un pegado especial transponer y asi los 14 repetitivamente, debido a esto
decide hacer una macro con el grabador de macros, con el codigo adjunto
llegue transponer los primeros 14 celdas pero el problemas es cuando quiero q
este codigo se repetiva para las siguientes 14 y asi hasta el final.

orkleman@terra.com.pe
http://www.
casa
Calle. Guillermo Dansey 2188- Lima
511 -+51 1 3368
511 -+51 1 425
LIMA/LIMA/LIMA
peru
lima
Walter,Ormeño
orkleman@terra.com.pe
Gerente
511 -4254
511 -4254


gtc@gomelast.com
http://www.
casa 1
Av. 22 de julio 230
511 -+51 1 3521155; 511 -3520039 / 3511658
511 -3516
LIMA\LIMA\ATE
Arequipa
Peru
WILLIAM,GALVEZ
igosac@terra.com.pe
Gerente General
511 -224-
511 -224-

CODIGO
ActiveCell.Range("A1:A14").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(16, -2).Range("A1:A14").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True