Originally Posted by
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