You use "With worksheets("sort")"

but then you leave your ranges unqualified.

maybe...

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

Notice the dots in front of each .Range() bit. That means they belong to the
previous "with" object--in this case, Worksheets("sort").



grime wrote:

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

--

Dave Peterson