Private Sub Worksheet_Calculate( )
Range("L" & 21 + Application.WorksheetFunction.Count([L21:L35])) = [J21].Value
End Sub

The above will not run automatically, but will run if I enter the Module and
press
the Run Sub Button.
Help please