Subtotal

Sub FindLastRow()
Dim LastRow As Long
    If WorksheetFunction.CountA(Cells) > 0 Then
        'Search for any entry, by searching backwards by Rows.
        LastRow = Cells.Find(What:="*", After:=[A1], _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlPrevious).Row
              MsgBox LastRow
    End If
End Sub

Sub essai()
  derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
  For col = 1 To 5
    Cells(derlig + 1, col).Formula = "=SubTOTAL(3," & Cells(2, col).Address & ":" & Cells(derlig, col).Address & ")"
  Next col
End Sub

Sub essai()
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
        'Search for any entry, by searching backwards by Columns.
        LastColumn = Cells.Find(What:="*", After:=[A1], _
                           SearchOrder:=xlByColumns, _
                       SearchDirection:=xlPrevious).Column
  derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
  For col = 1 To LastColumn
    Cells(derlig + 1, col).Formula = "=SubTOTAL(3," & Cells(2, col).Address & ":" & Cells(derlig, col).Address & ")"
  Next col
  End If
End Sub