VBA Add new rows based on multiple cell values

[Paul1005]

Hi, I've never written VBA code but based on the forum posts on this site i've been able to create several Macros to my workbook but i'm completley stuck on this last macro i need.

What i'm trying to do is count the number of values within 2 different ranges on sheet 1 & sheet 2
Then calculate the difference and add this number of rows into sheet 2 where there is a value of "ADD" in comuln A

For example if Sheet 1 has 6 cells populated and Sheet 2 has 4 then the difference =2 so i'd like to add 2 rows to Sheet 2 where there is ADD in colum A

Many thanks in advance for any guidance
Paul

 

[Sahak]

try this

Sub Add_Rows()
Dim RowDif As Long
RowDif = Sheets("Sheet1").Range("C65000").End(xlUp).Value - Sheets("Sheet2").Range("C65000").End(xlUp).Value
If RowDif = 0 Then Exit Sub
Range(Sheets("Sheet2").Range("C65000").End(xlUp).Offset(-1), Sheets("Sheet2").Range("C65000").End(xlUp).Offset(-1 + RowDif - 1)).EntireRow.Insert
End Sub

 

[Paul1005]

Excellent thanks Sahak works perfectly for my example.
And even better i have been able to use that code within other ranges within other sheets with only minor tweaks

 

[Sahak]

You are very welcome