I have a section of code where I am looping through to find the highest blank cell in a sheet, then pasting data from another sheet into a range that begins with that first blank cell. Here's the code I have so far:
Sub Button644_Click()
Dim ReferenceCell As Integer
For r = 1 To 2000
If Sheets("Summary").Range("A" & r).Value = vbNullString Then
ReferenceCell = r + 1
GoTo A
End If
Next r
A:s = r + 9
Sheets("Summary").Range("A" & r:"Q" & s).Select
End Sub
The debugger ends it on the row after A:. I need the code to be similar to "Range("A1:Q" & s)" but rather than "A(1)", it needs to be "A(r)". This code will eventually pastespecial a table that is A1:Q10 from a different sheet, and loop through so every time the macro is run, it checks for the blank cell, then pastes that table underneath the previously pasted table. This is still in the very early stages. Any help would be greatly appreciated.
Thank you!