Claculate no of rows in a sheet and add deficient no of rows

[ankit13]

Hi,

I have a sheet where no of rows are 90 and I want to a VBA code which:
1. Check the no of rows in the sheet
2. if the no of rows are less than 90 then add deficient no of rows below row no 68.

I will be adding the above code in my current code, therefore please send a very simple code.

Please help.!!!

 

[ParamRay]

Hi,

I have a sheet where no of rows are 90 and I want to a VBA code which:
1. Check the no of rows in the sheet
2. if the no of rows are less than 90 then add deficient no of rows below row no 68.

I will be adding the above code in my current code, therefore please send a very simple code.

Please help.!!!

The number of rows in a worksheet is fixed (normally at 1,048,576 rows).

Please can you clarify what you mean?

 

[Oeldere]

Probably I can't help you enough with your question.

though the question is very poor with information.

A sheet always has 90 rows in it.

you need to add e.g. the information on which column(s) the count is related.

you have headers also / they also have to count for the number of 90 rows?

 

[ankit13]

sorry for the poor question
I meant the no of filled/used rows is 90 and other rows I am not using.

 

[ankit13]

one more thing which i forgot to mention that on the last (90th) row, there is a text, so you can take the count from row 1 to the row containing the note (which i want to be 90 rows)

 

[Oeldere]

you need to add e.g. the information on which column(s) the count is related.

you have headers also / they also have to count for the number of 90 rows?

why no answers to this questions?

 

[ankit13]

found it
code: Do Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
If LR <> 90 Then Range("70:70").Insert Shift:=xlDown
Loop Until LR = 90: