Find Range & Copy ...

Another question where i think my logic is ok i'm just not sure on the syntax.

I'm trying to find a range of cells by a criteria and the copy that range to another part of the sheet, The finding the data is ok i think, its just the copying... SpecialCells

Private Sub GetMainClass()

Dim Class As Range
Dim Cell As Range
Dim Destination As Range
Dim Counter As Integer

'searches entire sheet
Set Class = Selection.SpecialCells(xlConstants, xlTextValues)

' Initial setting of the counter. first row for data is the integer
Counter = 20

'set up the destination range with a counter to increment the row so data doesn't overwrite
Set Destination = Range(Cells(B, Counter), Cells(I, Counter))
For Each Cell In Class
If Cell.Value = "Main" Then
Cell.EntireRow.Copy Destination
Counter = Counter + 1
End If
Next Cell
Application.CutCopyMode = False

End Sub