Move a row to another sheet based on cell value

[NRIANS2123]

Hello,

I've been using this site for awhile now and it's been very helpful. Thanks. In most cases, I could find what I need or at least find something close enough that I could modify it to work. I've tried the same approach this round, with no luck. My excel document has 2 sheets that I'm working with "Report" and "Backlog (Amazon)". What I'm trying to do is use a button to move rows from "Report" to ""Backlog (Amazon)" and clear content from "Report" based on column B containing the words "Amazon" or "Golden State". What I'm struggling with is the "containing" aspect. Each row that I want to move will have Amazon or Golden State in it, but with multiple variations (Amazon.com INC, Amazon.com Services, INC, etc.). Any help is much appreciated.

 

[JLGWhiz]

see if this will work for you.

Sub t()
Dim sh1 As Worksheet, sh2 As Worksheet, rng As Range
Set sh1 = Sheets("Report")
Set sh2 = Sheets("Backlog (Amazon)")
Set rng = sh1.Range("B1", sh1.Cells(Rows.Count, 2).End(xlUp))
rng.AutoFilter 1, "*Amazon*", xlOr, "*Golden State*"
rng.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy sh2.Cells(Rows.Count, 1).End(xlUp)(2)
rng.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
sh1.AutoFilterMode = False
End Sub

 

[NRIANS2123]

That worked perfect. Thanks.

 

[JLGWhiz]

That worked perfect. Thanks.

You're welcome,
regards, JLG

 

[NRIANS2123]

One last question. Is there a way to tweek the line in red to only past columns A thru BD instead of the entire row?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim sh1 As Worksheet, sh2 As Worksheet, rng As Range
Set sh1 = Sheets("Report")
Set sh2 = Sheets("Backlog Report (Amazon)")
Set rng = sh1.Range("B1", sh1.Cells(Rows.Count, 2).End(xlUp))
rng.AutoFilter 1, "*Amazon*", xlOr, "*Golden State*"
rng.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy sh2.Cells(Rows.Count, 1).End(xlUp)(2)
rng.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
sh1.AutoFilterMode = False[/FONT]