Column K with dates indicate the position is closed. I would like to input the following information (below) into column T for the positions that are NOT closed.
Note: The data currently indicated in column T in the attached should be the correct output.
Can anyone assists
Attachment 26348Sub OpnPos() Dim LRow As Long LRow = Range("A" & Rows.Count).End(xlUp).Row Range("T7") = WorksheetFunction.CountA(Range("K7:K15" & LRow)) Range("T8") = Format(WorksheetFunction.Sum(Range("J7:J" & LRow)), "$#,0.00") Range("T9") = Format(WorksheetFunction.Sum(Range("P7:P" & LRow)), "$#,0.00") End Sub