vba - 行で使用されている列の数を決定する方法

Question

特定の行で使用されている列の数を特定し、それらを右にシフトしようとしています。これは私がこれまでに持っているものですが、これはうまくいかないようです。助けてください。

Dim LastCol As Integer
LastCol = DataSheet.Cells(arr(z)(1), DataSheet.Cells(arr(z)(1).Columns.Count))
'arr(z)(1) is an integer extracted from a 2 multidimensional array           
Dim rng As Range

Set rng = Range(DataSheet.Cells(arr(z)(1), 2), DataSheet.Cells(arr(z)(1),LastCol))   
rng.Insert Shift:=xlRight

Answer 1

Dim LastCell as Range   
With DataSheet
    Set lastCell = .Cells(arr(Z)(1), Columns.Count).End(xlToLeft)
    .Range(.Cells(arr(Z)(1), 2), lastCell).Insert Shift:=xlShiftToRight
End With