i keep getting an error (object required )
Arr(i, 1).Value = ActiveCell.Value
Why? where have i gone wrong?
--------------------------------------------------


lRowCount = ActiveSheet.UsedRange.Rows.Count
j = lRowCount - 5 '(as starting from B6)

ReDim Arr(j, 2)

Range("B6").Select
For i = 1 To j
Arr(i, 1).Value = ActiveCell.Value ********************
ActiveCell.Offset(0, 1).Select
Arr(i, 2).Value = ActiveCell.Value
ActiveCell.Offset(-1, 1).Select
Next i


Worksheets("Salaries").Select
x = lRowCount - 3
Range("B4").Select
For m = 3 To x
ActiveCell.Value = Arr(m, 1).Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Arr(m, 2).Value
ActiveCell.Offset(-1, 1).Select
Next m