Thread: Macro VBA - Pasting to Varying Range

I am trying to copy values from "Formulas" , B2:O2 and paste them into cells on "Summary"

The range on "Summary" will vary. It will always start with B2.
The end depends on how many values are in column A.
The current keystrokes are:
1) End down in column A
2) Right arrow, to navigate to column B
3) Shift -> End -> up arrow -> down arrow, to highlight all column B cells with values in column A without the header row 1
4) Paste

The code below is the result of the full recorded macro. It is not dynamic, but using the relative reference seemed to be worse.

How can we achieve the results we are looking for?

Thank you... John


' This copies the formulas from Formulas to Summary

   Sheets("Formulas").Select
    Range("B2:O2").Select
    Selection.Copy
    Sheets("Summary").Select
    Range("A2").Select
    Selection.End(xlDown).Select
    Range("B3712").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B2:B3712").Select
    Range("B3712").Activate
    ActiveSheet.Paste

hi jbrad627

welcome to the forum

Sheets("Formulas").Range("B2:O2").Copy Destination:=Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

this copies the "B2:O2" and pastes it to the last row in summary sheet