sorting from previous column (VBA, Excel) in decreasing and increasing order

Hello,

I'm trying to sort data in decreasing order from column A in column B using VBA (Excel), so starting with Max value.
With the code below, no data is written in column B?

For i = 3 To LR Step 2
        Cells(i, 1).Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes    '** sorting in decreasing order of column A
     Next i

In column C, I will want to write the data of column A in increasing order, so starting with Min value?
Thank you for your advice!