I got it to work for you - Replace this line 
 If WorksheetFunction.CountA(RngRow) <> 0 Then
with 
 If RngRow <> "" Then