Adding Row to the Below Active cell when condition is met

[MrSho]

I have created below code which works like IF Col"B" any cell <> "" And Col"L" any cell = "Leop" then add row below to the active cell.

But an error is appear. Compile Error: Invalid use of property

Your help will be appreciated.

[CODE title="VBA"]Sub firstcondition()

Dim ws As Worksheet
Dim LRow As Long
Dim rng As Range
Dim rng2 As Range
Dim i As Long
Dim p As Long
Dim dat As Variant
Dim IRow As Long

Set ws = Thisworkbooks.Sheets("Sheet2")

With ws
LRow = .Range("A" & .Rows.Count).End(xlUp).Row
Set rng = .Range("B2:B" & LRow)
Set rng2 = .Range("L2:L" & LRow)

dat = rng
datt = rng2
IRow = Selection.Row

For i = LBound(dat, 1) To UBound(dat, 1)
For p = LBound(datt, 1) To UBound(datt, 1)

If dat(i, 1) <> "" And datt(p, 1) = "Leop" Then
Rows(IRow + 1).Select
Selection.Insert Shift: xlDown


End Sub[/CODE]

 

[Malcolm]

Hey there!

Compile Error: Invalid use of property

Just curious was there more to this error? For example, did it include any line references etc

Look forward to your reply!