Problema con código para encontrar la última fila, cuando hay filas ocultas.

Buenas tardes estimados, recurro a ustedes debido a que tengo un ligero problema, el código que a continuación pego funciona a la perfección lo que hace es buscar la ultima fila y escribe los datos que corresponde en la sigueinte fila en blanco . (dejo el código y abajo les explico el problema)

If ActiveCell.Value = ID And CONTROLB = "SALIDA" Then
    ActiveCell.Offset(0, 3).Select
    presupuestoanterior = ActiveCell.Value
        If presupuestoanterior < CANTIDAD Then
            MsgBox "SIN PRESUPUESTO, LO SIENTO" & Chr(13) & "Sólo hay " & presupuestoanterior & " Quetzales.", vbOKOnly + vbCritical, "**Información de Presupuesto"
            Sheets("PRINCIPAL").Select
        Exit Sub
        End If
        presupuestonuevo = Val(ActiveCell.Value) - Val(CANTIDAD)
    ActiveCell.Value = presupuestonuevo
    Selection.End(xlToLeft).Select
    MsgBox "Un Gasto por: " & VALOR & " " & DESCRIPCION & ". La Cuenta" & Chr(13) & "Disminuyó de: " & presupuestoanterior & " a " & presupuestonuevo & " Quetzales.", vbOKOnly + vbInformation, "**Salidas"
    Sheets("HISTORIAL").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = ID
    ActiveCell.Offset(0, 1).Value = CATEGORIA
    ActiveCell.Offset(0, 2).Value = DESCRIPCION
    ActiveCell.Offset(0, 3).Value = CANTIDAD
    ActiveCell.Offset(0, 4).Value = MES
    ActiveCell.Offset(0, 5).Value = CHEQUE
    ActiveCell.Offset(0, 6).Value = PROVEEDOR
    ActiveCell.Offset(0, 7).Value = REGIMENFISCAL
    ActiveCell.Offset(0, 8).Value = FECHAFACTURA
    ActiveCell.Offset(0, 9).Value = CONTROLB
    fecha = Now()
    ActiveCell.Offset(0, 10).Value = fecha
    MsgBox "Registro exitoso en historial", vbOKOnly + vbInformation, "**Historial"

El problema está cuando oculto filas de historial, por ejemplo:

        A             B         C

1      XX          XX      XXX

2     XX          XX       XXX

3    XX          XX      XXX

4    XXX       XXX     XXXX    Oculto esta fila

5

6

Visiblemente se ve

       A        B        C

3   xx         xx    xxx

5

y al momento de correr el macro identifica la fila 4 como vacía y sobre escribe los datos.

Pueden ayudarme??

Muchas gracias.