Hello,

I am new to VBA coding. I have a command button and would like it to copy whole rows anytime the words "Shuttle L", "Shuttle L & C", and "Team" appear in column A from sht1 and paste to sht2. Below is the code I found and it works for anytime the word Shuttle L appears. How do I change it so it works when the words "Shuttle L", "Shuttle L & C", and "Team" appear? Also is there a way to delete the previous information on sht2 so only the current info shows every time you click the button? (if what is pasting is smaller then what was pasted before the old data clears) Not sure if that makes any sense but any help would be appreciated.

Thank you!

Private Sub CommandButton21_Click()

Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Sheets("Fri AM (ALL)")
Set sht2 = Sheets("Fri AM (L)")

Intersect(sht2.UsedRange, sht2.Rows("2:" & Rows.Count)).ClearContents

sht1.Cells(8, 1).CurrentRegion.AutoFilter
sht1.Cells(8, 1).CurrentRegion.AutoFilter 1, "Shuttle L"
sht1.Cells(8, 1).CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy sht2.Cells(8, 1)
sht1.Cells(8, 1).CurrentRegion.AutoFilter