VBAを使った行挿入について

Question

前提

時刻順に並んだ表に行と打ち込んだ内容を挿入するVBAを作りたいです。

実現したいこと

固定された入力部分に打ち込んだ６桁の時刻と内容が、表に挿入され、挿入場所は時刻順に沿った場所になるようにしたいです。
※下記の場合だと、２行目の内容が７行目に挿入され、以降は１行ずつ繰り下がる

時刻	対応者
141600	Aさん	Bさん
135600	Bさん	Cさん
140200	Aさん	Dさん	Eさん
142800	Aさん	Bさん
150000	Bさん
151300	Bさん	Dさん	Eさん

試したこと

実現させたい動きとして、１列目に入力されている時刻を見て、該当の場所に行を挿入させたら、次にセルに内容を挿入させていこうと思いました。
まず行を挿入するコードを作ろうと思ったのですが、

Sub 挿入()

If Cells(4, 1) >= Range("A:A").Select Then
Selection.EntireRow.Insert
End If

End Sub

行を挿入するだけでも幾つか作ってみて、試してみたのですが上手くいかず、Excelについても初心者なので関数や色々なやり方を調べてみたのですが限界を感じて質問しました。

作ってみたコードを見てもらっても分かる通り、知識がほとんどないので、よろしければVBAのコードと説明を下さればとても嬉しいです。
質問内容が分かりづらいかもしれない為、申し訳ございませんが、よろしくお願いいたします。

Answer 1

Match関数で挿入位置を取得してもいいですね。

Public Sub 挿入()
    Dim r As Long
    On Error Resume Next
    r = WorksheetFunction.Match(Range("A2"), Range("A5", Cells(Rows.Count, 1).End(xlUp)), 1)
    On Error GoTo 0
    
    Rows(r + 5).Insert
    Rows(2).Copy Rows(r + 5)
End Sub

Answer 2

こんな感じになると思います。

Sub sample()

    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim Jikoku
    Jikoku = ws.Range("A2").Value
    
    Dim i
    For i = 5 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        If ws.Cells(i, 1).Value >= Jikoku Then
            ws.Rows(i).Insert
            ws.Rows(2).Copy ws.Rows(i)
            Exit For
        End If
    Next

End Sub