Code required for Offset, to find max values

Don't quote whole posts -- it's just clutter. If you are responding to a post out of sequence, limit quoted content to a few relevant lines that makes clear to whom and what you are responding

For normal conversational replies, try using the QUICK REPLY box below.

Please try this....

Sub GetMaxValueAndHeader()
Dim lr As Long, lc As Long, i As Long, j As Long
Dim rng As Range
Dim vVal As Double,mVal As Double
Dim Header As String

lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = 4
For i = 3 To lr
   For j = 1 To lc
      If Abs(Cells(i, j)) > vVal Then
         vVal = Abs(Cells(i, j))
         mVal = Cells(i, j)
         Header = Cells(2, j)
      End If
   Next j
   Cells(i, 5) = Header
   Cells(i, 6) = mVal
   Header = ""
   vVal = 0
   mVal = 0
Next i
End Sub