Thank you, mehmetcik! This works very well 
I changed a few things to get it like I wanted it.
Sub Merge_Data()
Dim MySheetName As String
MySheetName = "Merged Data"
Sheets("Compustat").Copy After:=Sheets("Compustat")
ActiveSheet.Name = MySheetName
LR1 = Sheets("Compustat").Cells(Rows.Count, 1).End(xlUp).Row
LR2 = Sheets("CRSP").Cells(Rows.Count, 1).End(xlUp).Row
LC = Sheets("CRSP").Cells(1, Columns.Count).End(xlToLeft).Column + 8
Sheets("Merged Data").Range("A1:BJ" & 62).Value = Sheets("Compustat").Range("A1:BJ" & 62).Value
Temp = "BL1:" & Cells(LR2, 63 + LC).Address
Sheets("Merged Data").Range(Temp).FormulaR1C1 = _
"=OFFSET(CRSP!R1C[-63],MATCH(RC1,CRSP!R1C1:R10000C1,0)-1,0)"
Sheets("Merged Data").Range(Temp).Value = Sheets("Merged Data").Range(Temp).Value
Worksheets("Merged Data").Cells(1, 63).Value2 = "CRSP Matches"
End Sub
Thanks again, this is very helpful!
Bookmarks