CustomerAccounts !! HELP Control and Logic Loops

[Lesley]

Option Explicit
Dim wsData As Worksheet
Dim wsResults As Worksheet
Dim rngData As Range
Dim custID As String
Dim amtOwed As Integer
Dim refData As Range
Dim refAns As Range
Dim noAns As Integer


Sub AmountOwed()
With wsData
   rngData = .Range("A4", .Range("A10000").End(xlUp)) -  I still do not know what I am doing wrong - this one is showing an error 
End With
For Each refData In rngData.Cells
    amtOwed = refData.Offset(0, 1) - refData.Offset(0, 2)
    If amtOwed > 1000 Then
        custID = refData
        refAns = custID
        refAns.Offset(0, 1) = amtOwed
        Set refAns = refAns.Offset(1, 0)
        noAns = noAns + 1
    End If
Next
With wsResults
    .Range("A3").Resize(noAns, 2).Sort .Range("B4"), xlDescending, .Range("A4"), , xlAscending, , , xlYes
End With
End Sub