Copy Paste Last Row VBA

[Lauren123]

Hi, i have this macro, but i would like it to paste after the last row, what should I change?

' Fecha
Rw = Range("AA" & Rows.Count).End(xlUp).Row
With Sheets("Draft")
For Each Cl In .Range("J7", .Range("J" & Rows.Count).End(xlUp))
If Cl.Value = "Active" Then
Sheets("U-Detail").Range("AA" & Rw + 1).Value = Range("'Draft'!C3").Value
Rw = Rw + 1
End If
Next Cl
End With

 

[MUKESHY12390]

perhaps this

Option Compare Text  '' you can remove this if you task is case-sensitive
Sub testVersion()
Dim i As Long
Dim lstRw As Long
Dim Cl As Range
''''' I assumed everthing happen on same sheet
With Sheets("Draft")
'lstRw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    For Each Cl In .Range("J7", .Range("J" & Rows.Count).End(xlUp))
      If Cl.Value = "Active" Then    '''''
       Cl.Copy
       .Cells(Rows.Count, "AA").End(xlUp).Offset(1, 0).Activate
       ActiveSheet.Paste
      End If
     Next Cl
 End With
End Sub

 

[Lauren123]

Is not working really well, is pasting above the info is already there, but thanks for helping.

 

[Lauren123]

It worked!!

 

[MUKESHY12390]

glad it worked out.