VBA to post columns into first blank cell in row

[wetgoose69]

Hello,

I want to copy and paste a range, G1:H250, into another sheet.

I want it to be pasted into the first blank cell in row 6. How can this be done?

I also want to keep the rows the same like G1 going into A1 and so on, not having G1 pasted to G6

[mostman]

Try something like this...
lastRow = Sheets("Sheet5").Range("A" & Rows.count).End(xlUp).Row
Sheets("Sheet4").Range("A3:C3").Copy Destination:=Sheets("Sheet5").Range("A" & lastRow)

[wetgoose69]

Hi,

Sub PasteR2()
'
' PasteR2 Macro
Dim x As Worksheet
Dim y As Workbook

Set x = Worksheets("Form 1")
Set y = Workbooks.Open("Form.xlsx")

x.Range("G:H").Copy

y.Sheets("Sheet1").Cells(6, Columns.Count).End(xlToLeft).Offset(0, 2).PasteSpecial

Where would it go in this vba? Thanks


End Sub