Scratching my head for hours. VBA to Copy Paste Range on Another Sheet based on criteria

[marcelita03]

I thought it was simply enough I could write the code... but I can't make it work. I am going nuts. I'm losing my mind. It's too simple why I can't make it work? I tried with copy/paste code...with AutoFilter code.... nothing works

I would appreciate if someone has some code handy that can do this simple process:

Scenario:

1. I have data on a range of cells (from A:H from row 2 to the last row with data) on a Sheet named "Data"

This is what I want to do:

3. IF the value on column "L" has the word "TRUE" then.....
2. Copy all the rows that meet that condition in "Data" and paste the range (A:H) to the LAST ROW of Column A another sheet name "CRM"

Please help. Please Thank you Thank you

 

[JLGWhiz]

Sub copystuff()
Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long
Set sh1 = Sheets("Data")
Set sh2 = Sheets("CRM")
lr = sh1.Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlPrevious).Row
sh1.Range("A1:L" & lr).AutoFilter 12, "TRUE"
sh1.Range("A2:H" & lr).SpecialCells(xlCellTypeVisible).Copy sh2.Cells(Rows.Count, 1).End(xlUp)(2)
sh1.AutoFilterMode = False
End Sub

 

[marcelita03]

JLG,
You are awesome man

 

[JLGWhiz]

Glad you could use it,
Regards, JLG