Sintaxis: copia la fila inmediatamente posterior (please Héctor)

Hola Héctor un gusto en saludarte: Un servicio, hará dos años me
facilitaste esta sintaxis que copiaba la fila anterior: (
http://groups.google.com/group/micr...f26a0ad101
),

Sub Imagen538_AlHacerClic()
With ActiveCell ' se marca la celda activa como 'parametro de
partida'
.Offset(-1).EntireRow.Copy ' se copia la fila inmediata
anterior... COMPLETITA
Cells(.Row, 1).Insert xlDown ' se inserta una fila 'nueva'
copiando la fila anterior [con todo y formulas]
Cells(.Row - 1, 2).Resize(, 8).ClearContents ' se limpian las
columnas 'B:I'
End With
End Sub

Lo que necesito es copie la fila inmediatamente posterior, ya que lo
tengo ordenado en este nuevo caso en forma descendente.

Gracias y saludos desde el Perú,

Carlos