Fortsæt log på nyt ark

Option Explicit

Dim Previous As String

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Previous = Target.Formula
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Log" Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    With Sheets("Log").Cells(Rows.Count, 1).End(xlUp)
       
        .Offset(1, 0).Value = Environ("UserName")
        .Offset(1, 1) = Sh.Name
        .Offset(1, 2) = Target.Address
        .Offset(1, 3) = "'" & Target.Formula
        .Offset(1, 4) = Previous
        Previous = ""
        .Offset(1, 5) = Now
    End With
    Application.EnableEvents = True

End Sub

Ovenstående benyttes til at logge alle ændringer der foretages i et regneark.

Hvis antallet af rækker i "Log" overstiger det maksimale, starter den forfra og laver alle efterfølgende i række 2, og efterfølgende udelukkende i denne række ....

Jeg ønskeder i stedet at der automatisk oprettes en nyt "Log" arkfane hvori loggen fortsættes ... HOW TO DO ???