Capture
Every time Column I has 04 or 05 in a row, I would like to cut that
entire row Columns A:AH, create a new worksheet named 0405 , and paste
those cut rows into the new worksheet, so that the rows do not overlap.
Here is what I have so far. Any help would be appreciated.
Sub Capture0405()
Set newsht = Sheets.Add(after:=Sheets(Sheets.Count))
newsht.Name = "0405"
End Sub
|