I think you need to do it like this. If this is not what you want try to
explain a bit more what you are trying to do.

rngCell.Row = 2
Do While Not RS.EOF
xlWS.Range("A" & rngCell.Row).Value = RS!CFG_ACCOUNT
xlWS.Range("B" & rngCell.Row).Value = RS!REASON
xlWS.Range("C" & rngCell.Row).Value = RS!BANKRUPTCYCHAPTER
xlWS.Range("D" & rngCell.Row).Value = RS!CASENUM
xlWS.Range("E" & rngCell.Row).Value = RS!BKTFILEDATE
xlWS.Range("F" & rngCell.Row).Value = RS!DATEOFDEATH
xlWS.Range("G" & rngCell.Row).Value = RS!Comments
xlWS.Range("H" & rngCell.Row).Value = RS!ORIGINALACCOUNT
RS.movenext
Loop