Hi,
I wanted to copy 4 columns from data in 4th row to data in last row.
I am trying to write the following code, but it isnt working.
Kindly suggest the way to do it.
Code:
Sub Copy()
Dim spendSheet As Worksheet
Sheets("Raw").Select
Set raw = ThisWorkbook.Sheets("Raw")
lastrow = raw.UsedRange.Rows.Count
'select column 1 A1'
Range("A:A" & lastrow,"D:D" & lastrow , "E:E" & lastrow,"I:I" & lastrow).Select
I dont want to use Range("A:A, D:D, E:E, I:I"), because it uses unnecessary data.