Copy everything in a worksheet vba

Question

' Copy
wb.Sheets(wsSource.Name).Range("A1:W79").Copy
' Paste Special
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats

This code allows me to copy everything in a range of A1:W79. How can I modify this Range so that it selects everything that contains value in a worksheet. For example, worksheet might contain values from C7:G20 etc.

http://stackoverflow.com/questions/35712424/how-to-find-the-true-last-cell-in-any-worksheet — Robin Mackenzie, Mar 30 '17 at 10:04

score 4 · Answer 1 · answered Mar 30 '17 at 10:04

4

I'd go like follows:

With wb.Sheets(wsSource.Name).UsedRange
    .Copy
    With wbTarget.Sheets("Sheet1").Range(.Address)
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
End With

answered Mar 30 '17 at 10:04

user3598756

28,893
4
18
28

@Desmond, did you get through it? – user3598756 Mar 31 '17 at 06:00

Copy everything in a worksheet vba

1 Answers1

Linked