VBA - Copy/Paste range of selected rows

[PaulMacF]

Hi,

I'm using the following code to copy a range of selected rows (see pic) to another another worksheet, in another workbook (appended to the bottom of that worksheet).
Unfortunately this code is only pasting the first row of the selected range, not the entire selected block of rows. Would appreciate a fix please.

Sub dagym()
'
' dagym Macro
'

'
   
ActiveCell.EntireRow.Select
Selection.Copy
Windows("Timeform Results for SQL Spreads.xlsx").Activate
Sheets("TF Results Sheet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

 

[Joe4]

If you have already selected the rows you want to copy before running the code, then get rid of this line of code:

ActiveCell.EntireRow.Select

so you are just left with:

Sub dagym()
'
' dagym Macro
'

Selection.Copy
Windows("Timeform Results for SQL Spreads.xlsx").Activate
Sheets("TF Results Sheet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

 

[PaulMacF]

Hi Joe,

Have tried that. It's still just pasting the first selected row to the other sheet, instead of the entire block of rows.

 

[PaulMacF]

Hi again,

Okay I have sorted it out now, thanks very much, Joe

 

[Joe4]

You are welcome.

The key is "Selection" just uses whatever range you have pre-selected when you run the VBA code.
If you use "ActiveCell.EntireRow.Select", it will only run on the first row you have in your selected range, as you are changing the size of range (note that "ActiveCell" is always just one single cell, namely the first cell in your selected range).