Wstaw wiersz VBA

Range("b4").EntireRow.Insert
Innocent Impala