Copy Paste Loop

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