Copy a column from one tab to another using a column reference

[p45cal]

Could you attach a version of your workbook with this?

I'll take that as a no then.
try:

Sub blah()
With Sheets("Grades")
  SourceColumn = Application.Match("Date", .Rows(1), 0)
  Set SourceRange = Intersect(.UsedRange, .Columns(SourceColumn)).Offset(1)
End With
With Sheets("Results")
  DestinationColumn = Application.Match("Date", .Rows(1), 0)
  Set DestinationRange = .Cells(2, DestinationColumn) 'or if there's already something there:
  'Set DestinationRange = .Cells(.Rows.Count, DestinationColumn).End(xlUp).Offset(1)
End With
SourceRange.Copy DestinationRange
End Sub