How do I end a macro

[Smilin]

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 ?

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

 

[Fluff]

You just need to add End Sub after the End With

 

[Smilin]

You just need to add End Sub after the End With

Gratitude Fluff, it worked! I am very happy.

 

[Fluff]

You're welcome & thanks for the feedback.