contar filas de rango no continuo

[mrocf]

Cada rango de celdas contiguas de una selección múltiple se denomina en VBA: Área.

El código debe contemplar esa cuestión, por ejemplo así:

Código vb:

Sub Macro793()
Dim mArea As Range, nRow As Long
For Each mArea In Range("A1:A2,A8:A15").Areas
  nRow = nRow + mArea.Rows.Count
Next mArea
MsgBox nRow
End Sub
 

Saludos, Cacho.