thank you to all who looked at this - yes Paul you were right - taking
out the .Value made it work




completed code:


Sub AA_updateSalaries()

Dim i, j, k, m As Integer
Dim c
Dim strCC, sOut As String

Dim iFileNum As Integer
Dim lRowCount As Long
Dim lRow As Long
Dim iColCount As Integer
Dim iCol As Integer
Dim Arr()


Worksheets("Salaries").Select

Sheets("SRD").Select
Range("B6").Select
lRowCount = ActiveSheet.UsedRange.Rows.Count
iColCount = ActiveSheet.UsedRange.Columns.Count


j = lRowCount - 5


ReDim Arr(1 To j, 1 To 2)

Range("B6").Select
For i = 1 To j

Arr(i, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Arr(i, 2) = ActiveCell.Value
ActiveCell.Offset(1, -1).Select
Next i


Worksheets("Salaries").Select


Range("B4").Select
MsgBox ActiveCell.Address
For m = 1 To j
ActiveCell.Value = Arr(m, 1)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Arr(m, 2)
ActiveCell.Offset(10, -1).Select
Next m




End Sub