make me less ugly please

Hey all

I have written this code to counta() a range of cells, however it is very ugly can someone please provide suggestions on how this can be better achieved?

Basically the problem is to code a dynamic range into a formula.

Please Login or Register  to view this content.

Thank you

dabith

try this code

Public Sub count_trans()

Dim LastRow As Long
Dim FirstRow As Integer

' Determine what the first row with data is
FirstRow = Cells.Find(what:="As of Date", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Row + 1

' Determine what the last row with data is
LastRow = ActiveSheet.Cells.Find(what:="*", searchorder:=xlByRows, _
searchdirection:=xlPrevious).Row

Cells(LastRow + 2, ActiveCell.Column).Value = "=counta(B" & LastRow & ":B" & FirstRow & ")"

End Sub