Recorrer columna buscando datos, desplazarlos y combinar celdas

Estoy verde en visual basic, tengo esta aplicacion,pero no soy capaz de hacerla correr.

Sub correr2()
Dim fil As Integer
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Range("B6").Select
If ActiveCell.Value = "Partida" Then
ActiveCell.Offset(0, 11).Select
ActiveCell.End(xlDown).Select
ActiveCell.Cut
ActiveCell.Offset(0, -1).Select
ActiveSheet.Paste
fil = ActiveCell.Row 'guarda la fila activa
Range("L" & fil & ":M" & fil).Merge
End If
Range("B" & fil).Select
End Sub