Copy and Pasting rows in Excel takes WAY TOO LONG

[keithweinberger]

I have a VBA script connected to a macro that copies rows from one sheet to another in my excel workbook. However, this macro is so slow, and takes 100% of my CPU that I have to pull the battery to get it to stop. Below is the code that seems to be so slow.

does anyone have different code I can use, or can help with this ?

thanks in advanced.

Sub TransferLine(rcnt As Long, trcnt As Long)

Sheets("ProjectPlan").Rows(rcnt).Copy

Sheets("CalculatedPlan").Rows(trcnt).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

I can provide the entire macro, if one needs to see that

Again, thanks for any help !!

[discarnet]

Are you trying to copy a compete row if so try this

Sub copyrow()

Rows("5:5").Select

' change the above row to the one you want to copy

Selection.Copy

Sheets("Sheet2").Select

' change the "sheet2" to the sheet you want to copy to

Rows("1:1").Select

ActiveSheet.Paste

End Sub

this will take a fraction of a second