Why won't this paste? It copies and pastes empty cells...

Please help. Here's the code.


With Worksheets("Sort")
Range("G" & RowOfHostStore, Range("G" &
RowOfHostStore).End(xlToRight)).Copy
End With

Worksheets("Current Territory Worksheet").Range("A4").PasteSpecial
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True


--
grime
------------------------------------------------------------------------
grime's Profile: http://www.excelforum.com/member.php...o&userid=19227
View this thread: http://www.excelforum.com/showthread...hreadid=388477