Macro de borrado de celdas

Tengo el siguiente macro,
Sub Macro32()
'
' Macro32 Macro
'
'
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Previous.Select
    ActiveSheet.Previous.Select
    ActiveCell.Select
End Sub
Pero, necesito que después de ejecutarse borre desde la celda a1 a L5
gracias,