Tak jen takový pokus, snad Ti to bude fungovat.
Hodnota = Cells(i, 2).Value
Cislo = Abs(Hodnota)
List4.Activate
List4.Cells(Cells(1000, 1).End(xlUp).Row, 2).Select
Selection.Cells.Value = Cislo
Selection.NumberFormat = "# Kč"
List2.Activate
Hodnota As Long
Cislo As Long