Sort values with IF STATEMENT

[nordicdust]

Hi

Is there a way to sort Values with a If Statement?

CODE:

Sub Sortit()

    Call StopCalc 'Stop Flickering

With ThisWorkbook.Worksheets("TIL BEREGNING")
Range("A5:X200").Sort key1:=Range("J6"), order1:=xlAscending, Header:=xlYes
 
 End With

    Call ResetCalc 'Refresh screen

End Sub

I was hoping that this was possible:

With ThisWorkbook.Worksheets("TIL BEREGNING")
If ("K6") = "PRIS AFLEVERET" Then send to bottum 
 
 End With

I am a bit lost here as I can't find anything that helps me on this.