Can Someone Take My VBA and make it a for loop?

Hello, I have a macro I recorded, but I need it to run the macro on rows 2-307 in 'Book1'. Im not very good with VBA and im not sure exactly how to do this. Here Is the code I have so far:

Sub Schedule()
'
' Schedule Macro
'

'

    Windows("Book1").Activate
    Range("D2").Select
    Selection.Copy
    Windows("Schedule Number Creator.xls").Activate
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Book1").Activate
    Range("F2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Schedule Number Creator.xls").Activate
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B1").Select
    Selection.Copy
    Windows("Book1").Activate
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub