CurrentRegion.Rows.Count to not look at specific column (row count VBA)

[egemencoskun]

Hi,

I am using

RowCount = Worksheets("Input").Range("A1").CurrentRegion.Rows.Count

and entering data from form as follow;

ith Worksheets("Input").Range("A1")
.Offset(RowCount, 0).Value = Me.Supplier.Value
.Offset(RowCount, 1).Value = Me.GLCode.Value
.Offset(RowCount, 2).Value = Me.VenueNo.Value
.Offset(RowCount, 3).Value = Me.Amount.Value
.Offset(RowCount, 4).Value = Me.VATCode.Value
.Offset(RowCount, 5).Value = Me.Reference.Value
.Offset(RowCount, 6).Value = Me.Description.Value
.Offset(RowCount, 7).Value = Me.Period.Value
.Offset(RowCount, 8).Value = DateValue(Me.TransDate.Value)
.Offset(RowCount, 9).Value = Me.User.Value
.Offset(RowCount, 10).Value = Me.JournalType.Value
.Offset(RowCount, 11).Value = Me.Distribution.Value
.Offset(RowCount, 12).Value = Format(Now, "dd/mm/yyyy hh:nn:ss")
.Offset(RowCount, 17).Value = ("Recorded")

However I have a formula in Column Q and the code sees this formula as value and posts my entry to the row where the formula ends.

Can I fix this row count to not look at Column Q or just look at Column A and count the values in Column A rather than looking at all the columns?

 

[Snakehips]

egemencoskun,

Try

RowCount = Cells(Rows.Count,1).End(xlup).Row

 

[egemencoskun]

Great That worked.

Thanks so much....