I had assumed that avoiding the nested loop would be faster, but you are right... I just set up a test and they both run in approximately the same time... actually, the nested loop might even be a hair faster (it appeared to run about 0.005 seconds faster, on average, given my limited testing). For those wondering about the code for the nested loop version, this is what I used...
Code:
Sub Test2()
Dim R As Long, C As Long, Idx As Long, RemoveRow As Long, Data_Array As Variant, ArrLessOne As Variant
' Seed the range with some data
For Each Cell In Range("A1:AI1000")
Cell.Value = Cell.Address(0, 0)
Next
Data_Array = Range("A1:AI1000")
RemoveRow = 35
ReDim ArrLessOne(1 To UBound(Data_Array, 1) - 1, 1 To UBound(Data_Array, 2))
For R = 1 To UBound(Data_Array)
If R <> RemoveRow Then
Idx = Idx + 1
For C = 1 To UBound(Data_Array, 2)
ArrLessOne(Idx, C) = Data_Array(R, C)
Next
End If
Next
Range("AK1").Resize(UBound(ArrLessOne, 1), UBound(ArrLessOne, 2)) = ArrLessOne
End Sub
Bookmarks