Copy cells from each row into new sheet, depending on if statement

Hi there,
currently I have this macro that just changes the background color of the cell I am investigating.
Instead of marking the cells that fill the if-statement, I want it, for each row that fulfill the if-statement, copy cell A and L into a new sheet.

So if L is > higher then input_box, then copy that value from cell L for that row along with the value from cell A for that row.

Current code

Sub Check_MaxMinOver()
Dim input_box As Integer


input_box = InputBox("What should maxmin be higher than?")

For Each cell In Range("L5:L" & Cells(Rows.Count, "L").End(xlUp).Row)
    If cell.Value > input_box Then
        cell.Select
                With Selection.Interior
                .ColorIndex = 7
                End With
    End If
Next
End Sub

Isn't there anyone that knows how to solve this? :p

Maybe:

Sub christopherLzz()
Dim input_box As Integer
Dim cell As Range
input_box = InputBox("What should maxmin be higher than?")

For Each cell In Range("L5:L" & Cells(Rows.count, "L").End(xlUp).Row)
    If cell.Value > input_box Then
        Range(cell.Offset(, -11), cell).Copy Sheets("new sheet").Range("A" & Rows.count).End(3)(2)
    End If
Next
End Sub

Glad to hear that. Thanks for the feedback.

Creates a new sheet and names it according to cell value in column L

Sub Check_MaxMinOver()
Dim input_box As Integer

input_box = InputBox("What should maxmin be higher than?")

For Each cell In Range("L5:L" & Cells(Rows.Count, "L").End(xlUp).Row)
    If cell.Value > input_box Then
        Sheets.Add.Name = cell.Text
            Sheets(cell.Text).Range("L1").Value = cell.Value
            Sheets(cell.Text).Range("A1").Value = cell.Offset(0, -11).Value
    End If
Next
End Sub