2010 Macro Issue - deleting columns and rows

I wrote this macro to delete specific columns and rows from a workbook when I launch it. Its pretty straight forward, however whenever I run it in Excel 2010, it deletes basically the first 10 columns instead of the ones I designated. Any recommendations anyone?

Sub Contributions()
'
' Contributions Macro

Columns("L:M").Select
Range("M1").Activate
Selection.Delete Shift:=xlToLeft
Columns("G:H").Select
Range("G2").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Range("B2").Activate
Selection.Delete Shift:=xlToLeft
Rows("1:5").Select
Selection.Delete Shift:=xlUp
Columns("A:J").EntireColumn.AutoFit

End Sub

Thanks, worked like a charm!