Sub blah()
With Sheets("Sub Grade Data")
  For Each cll In Range(.Range("A2"), .Range("A2").End(xlDown))
    With Sheets("Summary")
      For i = cll.Offset(, 2).Value To cll.Offset(, 3).Value - 1 Step 20
        Set colm = .Rows(1).Find(what:=i, LookIn:=xlFormulas, lookat:=xlWhole, searchformat:=False)
        If Not colm Is Nothing Then
          .Cells(22, colm.Column).Value = cll.Offset(, 9).Value
          .Cells(23, colm.Column).Value = cll.Value
        End If
      Next i
    End With
  Next cll
End With
End Sub