With - copy paste

Asked Dec 07 '21 at 15:58

Active Dec 07 '21 at 16:52

Viewed 35 times

I'm trying to copy/cut - paste multiple tables in the same sheet from a certain range a few lines down. for some reason, if i use the code blow it will only select the range B24 and not paste. Tried with the ranges outside the with and it works. not sure why. pls help

Dim NQSwks As Worksheet
Dim lastrowStatus As Long
With NQSwks
        lastrowStatus = .Cells(.Rows.Count, "C").End(xlUp).Row

    .Range("B11:W" & lastrowStatus).Cut
    .Range("B24").PasteSpecial
    .Range("B2:W9").Copy
    .Range("B11").PasteSpecial xlPasteValues
    .Range("B2:W9").Copy
    .Range("B11").PasteSpecial xlPasteFormats
    .Range("C14:C18").Copy
    .Range("G5:G9").PasteSpecial
    .Range("B2") = "week " & WeekOfQuarter & " for week " & WeekOfQuarter + 1 & " OL"

edited Dec 07 '21 at 16:52

Tim Williams

154,628
8
97
125

asked Dec 07 '21 at 15:58

Edmond Manta

Have a look at this, it might help: https://stackoverflow.com/q/50776026/4961700 – Solar Mike Dec 07 '21 at 16:38
`Cut` has a `Destination` parameter so try `.Range("B11:W" & lastrowStatus).Cut .Range("B24")` – Tim Williams Dec 07 '21 at 16:56

With - copy paste

0 Answers0