Hello, this is my macro, each day I update my sheet with new values, and the values are pasted below the last line. This is my macro. I am not sure how to end it, end with , end sub, gives me an error both ways. What am I doing wrong ?
VBA Code:
Sub cat2021()
'define source range
Dim Lastrow As Long
With Worksheets("Cat2021")
Lastrow = .Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("hail").Range("A2:A900").Copy
.Range("A" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("N2:N900").Copy
.Range("B" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("P2:P900").Copy
.Range("C" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("H2:H900").Copy
.Range("D" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("I2:I900").Copy
.Range("E" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("R2:R900").Copy
.Range("F" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("S2:S900").Copy
.Range("G" & Lastrow).PasteSpecial Paste:=xlValues
Worksheets("hail").Range("X2:X900").Copy
.Range("H" & Lastrow).PasteSpecial Paste:=xlValues
End With
Last edited by a moderator: