Delete One Row From A 2D Variant Array

[snb]

If you want to remove row 12 from array [A1:K20]

Sub M_snb()
  sp = F_snb([a1:K20], 12)
  Cells(1, 16).Resize(UBound(sp), UBound(sp, 2)) = sp
End Sub

Function F_snb(sn, y)
  sn.Name = "snb_002"
  F_snb = Application.Index(sn, Application.Transpose(Split(Trim(Replace(" " & Join([transpose(row(snb_002))]) & " ", " " & y & " ", " ")))), [column(snb_002)])
End Function

For more see: http://www.snb-vba.eu/VBA_Arrays_en.html#L_6.10