I have an Excel spreadsheet where the name, company, address, and city/state/zip fields are listed all in one column. (See example below.)

Tom Jones
ABC Graphics
123 Main Street
Anytown, ST 98765
John Smith
Alpha Omega
567 Blue Street
Yourtown, ST 78945

I need to copy four lines, move over one column, and paste special/transpose, then move to the next entry and start again. This is the macro I've been trying to use. I have not yet put the loop in, as I wanted to be sure it worked on the first entry before I attempted to have it run through the entire worksheet:

Sub RelativeCopyPasteTranspose()


StartCell = ActiveCell.Offset(0, 0).Address
EndCell = ActiveCell.Offset(3, 0).Address
Range(StartCell, EndCell).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=x1PasteAll, Operation:=x1None, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(5, -1).Select

End Sub

Every time I run it, I get an error that says "Runtime error '1004': PasteSpecial method of Range class failed." Anyone have any ideas what I'm doing wrong?