Copy paste with Absolute Values, Can it be done?

[CVBASIMON]

I have copied over a row of $, ($) amounts from one worksheet to another. I am trying to make the amounts I copy over past in absolute values. Is there a way to do this? Below is the current code:

'copying over the Amount in Local Currency ST Reclass
Sheets("Recon_ST").Select
Range("S9").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Copy
Sheets("ST Journal entries").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[AlphaFrog]

Try something like this...

    [color=green]'copying over the Amount in Local Currency ST Reclass[/color]
    [color=darkblue]Dim[/color] c [color=darkblue]As[/color] [color=darkblue]Variant[/color], i [color=darkblue]As[/color] [color=darkblue]Long[/color]
    
    [color=darkblue]With[/color] Sheets("Recon_ST")
        c = .Range("S9", .Range("S9").End(xlDown))
    End [color=darkblue]With[/color]
    
    [color=darkblue]For[/color] i = 1 [color=darkblue]To[/color] [color=darkblue]UBound[/color](c)
        c(i, 1) = Abs(c(i, 1))
    [color=darkblue]Next[/color] i
    
    Sheets("ST Journal entries").Range("J2").Resize(UBound(c)).Value = c

 

[CVBASIMON]

Try something like this...

    [COLOR=green]'copying over the Amount in Local Currency ST Reclass[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] c [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR], i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
 
    [COLOR=darkblue]With[/COLOR] Sheets("Recon_ST")
        c = .Range("S9", .Range("S9").End(xlDown))
    End [COLOR=darkblue]With[/COLOR]
 
    [COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] [COLOR=darkblue]UBound[/COLOR](c)
        c(i, 1) = Abs(c(i, 1))
    [COLOR=darkblue]Next[/COLOR] i
 
    Sheets("ST Journal entries").Range("J2").Resize(UBound(c)).Value = c

Thank you Alpha Frog! Worked perfectly.