I didn't look at the code too closely, but this compiles:

Option Explicit
Sub Summary()
   Dim TargetRange As Range
   Dim f As Range
   Dim mSh As String
   Dim SumSh As String
   Dim n As Long
   Dim cRange As String
   
   SumSh = "Summary"
   mSh = "Mar 08"
   With Sheets(mSh)
       Set TargetRange = .Range("C6", .Range("C65536").End(xlUp))
   End With
   With TargetRange
       For n = 0 To 4
           Set f = .Find(what:=n)
           If Not f Is Nothing Then
               cRange = Range(f.Address).Offset(0, 4).Address
               Range(cRange).Copy _
                   Destination:=Sheets(SumSh).Range("C6").Offset(n, 0)
           End If
       Next
       For n = 5 To 8
           Set f = .Find(what:=n)
           If Not f Is Nothing Then
               cRange = Range(f.Address).Offset(0, 4).Address
               Range(cRange).Copy _
               Destination:=Sheets(SumSh).Range("C6").Offset(n - 5, 4)
           End If
       Next
   End With
End Sub