Select one row only

[Rebeccahelp needed]

Hi
Forum has helped me in the past to create the below...

Dim UsdCols As Long
UsdCols = Cells(2, Columns.Count).End(xlToLeft).Column

Range("G2", Range("G" & Rows.Count).End(xlUp)).Resize(, UsdCols - 6).Copy
With Sheets("Returns History")
.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

But now I want to amend it so that only column G is copied - not everything next to it.. can you help?

thanks

 

[Fluff]

How about

Sub Rebecca()
   Range("G2", Range("G" & Rows.Count).End(xlUp)).Copy
   With Sheets("Returns History")
      .Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
   End With
   Application.CutCopyMode = False
End Sub

 

[Rebeccahelp needed]

thank you again!

 

[Fluff]

You're welcome & thanks for the feedback.