Solved: Deleting Rows

[Nosstech]

I am trying to parse out a team sport schedule to different tabs. Thus far, I have copied Sheet1 ("Season") to Sheets 2&3 ("Home" & "Away").

On the Home tab, I want to delete all the "at" rows (column e).

On the Away tab, I want to delete all the "vs" rows (Column e).

Thanks for the help.

[Bob Phillips]

[vba]

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim rng As Range
Dim rngCopy As Range

With ActiveSheet

LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
Set rng = .Range("E1").Resize(LastRow)

rng.AutoFilter field:=1, Criteria1:="at"
Set rngCopy = rng.SpecialCells(xlCellTypeVisible)
If Not rngCopy Is Nothing Then

rngCopy.EntireRow.Copy Worksheets("Home").Range("A1")
End If

rng.AutoFilter field:=1, Criteria1:="vs"
Set rngCopy = rng.SpecialCells(xlCellTypeVisible)
If Not rngCopy Is Nothing Then

rngCopy.EntireRow.Copy Worksheets("Away").Range("A1")
End If
End With

End Sub
[/vba]

[Nosstech]

[vba]

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim rng As Range
Dim rngCopy As Range

With ActiveSheet

LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
Set rng = .Range("E1").Resize(LastRow)

rng.AutoFilter field:=1, Criteria1:="at"
Set rngCopy = rng.SpecialCells(xlCellTypeVisible)
If Not rngCopy Is Nothing Then

rngCopy.EntireRow.Copy Worksheets("Home").Range("A1")
End If

rng.AutoFilter field:=1, Criteria1:="vs"
Set rngCopy = rng.SpecialCells(xlCellTypeVisible)
If Not rngCopy Is Nothing Then

rngCopy.EntireRow.Copy Worksheets("Away").Range("A1")
End If
End With

End Sub
[/vba]

Thanks!!! As always, top notch help