Sub Copy_Paste()
Dim Tdate As Date
Worksheets("Forecast").Range("A4:E7").Copy Worksheets("Historical").Range("A2:E5")
Worksheets("Historical").Range("B2:E5").Interior.Color = vbBlue
Worksheets("Historical").Range("B2:E5").Font.Color = vbRed
Worksheets("Historical").Range("F2:F5").Now