Delete rows with counta < 13

[MegloManiac]

Hello,

I have a automated weekly report from our ERP which we copy into excel. The data is not yet ready for proper analysis. Most of the steps I can record in a macro except for one. I want to remove all rows where the counta < 13 for the columns A through N. I can do this by adding the formula =counta(A2:N2) and filling this for all rows and then filter on <13 and delete those rows, but I am sure there is a better way to build this in VBA only I don't how It should check from row 2 until the last filled line (which is variable per week)

thanks!

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If WorksheetFunction.CountA(Range("A" & i).Resize(, 14)) < 13 Then Rows(i).Delete
Next i
End Sub

 

[MegloManiac]

Perfect!! thanks for the fast reply!