Want to create macro multiply with above number then move to next celll and same repeated.

Somthing like this:

Sub LMP_Test()
    
    Dim lngCountValues                  As Long
    Dim rngRangeToApplyMultiply         As Range
    Dim rngEachCell                     As Range

    On Error Resume Next
    Set rngRangeToApplyMultiply = Application.InputBox("Select Range to apply data multiplication:-", "Data Range", , , , , , 8)
    On Error GoTo 0: Err.Clear
    
    If Not rngRangeToApplyMultiply Is Nothing Then
        lngCountValues = 0
        For Each rngEachCell In rngRangeToApplyMultiply
            lngCountValues = lngCountValues + 1
            rngEachCell.Offset(lngCountValues).Value = rngEachCell ^ 2
        Next rngEachCell
    End If
    
End Sub