Quote Originally Posted by Rick Rothstein View Post
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
This just the solution I'm looking for , thank you Rick!