Last Row Finder problems

[tbeynon1]

I have a set of code working but it can only copy a column at a time, as shown below:

x = Range("A" & Rows.Count).End(xlUp).Row
x = x + 1
Sheets("CSV").Range("B" & x).Copy
Sheets("Sheet1").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

So i was wondering if the same thing could be achieved when trying to copy multiple columns like in this code:

Sheets("CSV").Range("C1:D1000").Copy
Sheets("Sheet1").Activate
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

 

[CsJHUN]

I have a set of code working but it can only copy a column at a time, as shown below:
So i was wondering if the same thing could be achieved when trying to copy multiple columns like in this code:

Sheets("CSV").Range("C1:D1000").Copy
Sheets("Sheet1").Activate
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

?Maybe this:

x = Range("A" & Rows.Count).End(xlUp).Row +1
Sheets("CSV").Range("C1:D" & x).Copy