How to repeat VBA and paste result in next row

[Alex_Lim]

Hi am new to vba. How to repeat the commands below and paste results in row C8, C9, etc. Thanks.
'
Sheets("Rand").Select
Range("A1").Select
Calculate
Range("A1:A8").Select
Selection.Copy
Range("A12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Rand").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Rand").Sort.SortFields.Add2 Key:=Range("A12:A19") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Rand").Sort
.SetRange Range("A12:A19")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Copy
Sheets("MLife").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

 

[DanteAmor]

Try with this

Sub Copy_Paste()
    Sheets("Rand").Select
    'Range("A1").Select
    'Calculate
    Range("A1:A8").Copy
    Range("A12").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    With ActiveWorkbook.Worksheets("Rand").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A12:A19"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A12:A19")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A12:A19").Copy
    Sheets("MLife").Select
    u = Range("C" & Rows.Count).End(xlUp).Row + 1
    Range("C" & u).PasteSpecial Paste:=xlPasteAll
End Sub