Visual Basic - Para Cecilia Colalongo, AYUDITA PLEASE

Hola, disculpa que sea tan directo, pero se que me puedes ayudar.
Necesito combinar celdas en Excel y a la vez eliminar hojas, estoy trabajando de la siguiente manera:
Ap.Cells(5, 2).Font.Name = "Arial"
Ap.Cells(5, 2).Font.Italic = True
Ap.Cells(5, 2).Font.Size = 10
Ap.Cells(5, 2).Font.Color = vbBlue
pero necesito combinar un rango de 10 celdas hacia la derecha
me puedes ayudar please
ahh, ademas como se eliminan hojas
gracias

Para eliminar una hoja:

With Ap
.Sheets("Hoja2").Select
.ActiveWindow.SelectedSheets.Delete
End With

Para combinar celdas:

With Ap
.Range("A1:J1").Select
With .Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End With

La forma más fácil es grabar una macro en Excel con lo que quieres hacer y desde ahí copiar el código.