Copy Paste Loop

Hello,
Sorry for the basic question, but I am having a problem figuring out where I am going wrong in my code as a beginner.
I have columns of data that I need copied into an active column ("Input") which is linked to a calculations worksheet ("Calculations") in the same workbook. I then need some of these values copied into a 3rd worksheet ("Percent Difference"). I need this procedure to repeat from columns G - CW and each time the data is copied into the 3rd worksheet, it needs to be in a new row. Any help would be greatly appreciated.

Sub Sample()

    Range("G7:G50").Copy
    Range("F7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Calculations").Select
    Range("B1").Copy
    Sheets("Percent Difference").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
         Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Calculations").Select
    Range("D13").Copy
    Sheets("Percent Difference").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
         Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Calculations").Select
    Range("D14").Copy
    Sheets("Percent Difference").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial _
         Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Calculations").Select
    Range("H13").Copy
    Sheets("Percent Difference").Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial _
         Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Calculations").Select
    Range("H14").Copy
    Sheets("Percent Difference").Range("E65536").End(xlUp).Offset(1, 0).PasteSpecial _
         Paste:=xlPasteValues
    Application.CutCopyMode = False

End Sub

So from here, I need it to return to the sheet "Input" and copy H7:H50 to F7:F50 and repeat the exact string of copy/paste above, then return for columns I-CW. But loops are still pretty foreign to me! I hope that makes sense...
Thanks for reading!
-K

Test on a copy first.

Sub imaginekat()
Dim i As Long
With Sheets("Calculations")
For i = 7 To 101
    .Range("F7").Resize(50).Value = .Range(Cells(7, i), Cells(7, 50)).Value
    .Range("B1").Copy Sheets("Percent Difference").Range("A" & Rows.Count).End(3)(2)
    .Range("D13").Copy Sheets("Percent Difference").Range("B" & Rows.Count).End(3)(2)
    .Range("D14").Copy Sheets("Percent Difference").Range("C" & Rows.Count).End(3)(2)
    .Range("H13").Copy Sheets("Percent Difference").Range("D" & Rows.Count).End(3)(2)
    .Range("H14").Copy Sheets("Percent Difference").Range("E" & Rows.Count).End(3)(2)
Next i
End With
End Sub

Thank you very much for your help John!

I had to make a couple modifications as I was getting an error with the 'With' function and my formulas were being copied into the "Percent Difference" sheet instead of the values.

Sub imaginekat()
    Dim i As Long
    For i = 7 To 101
        Sheets("Input").Range("F7:F50").Value = Sheets("Input").Range(Cells(7, i), Cells(50, i)).Value
        Sheets("Calculations").Range("B1").Copy
        Sheets("Percent Difference").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
            Paste:=xlPasteValues
        Application.CutCopyMode = False
        Sheets("Calculations").Range("D13").Copy
        Sheets("Percent Difference").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
            Paste:=xlPasteValues
        Application.CutCopyMode = False
        Sheets("Calculations").Range("D14").Copy
        Sheets("Percent Difference").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial _
            Paste:=xlPasteValues
        Application.CutCopyMode = False
        Sheets("Calculations").Range("H13").Copy
        Sheets("Percent Difference").Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial _
            Paste:=xlPasteValues
        Application.CutCopyMode = False
        Sheets("Calculations").Range("H14").Copy
        Sheets("Percent Difference").Range("E65536").End(xlUp).Offset(1, 0).PasteSpecial _
            Paste:=xlPasteValues
        Application.CutCopyMode = False
    Next i
End Sub

Once again, thank you very much for your help!

You're welcome. Glad to help out.