LogSheet_Add + LogSheet_Clear

2 Functions LogSheet_Add and LogSheet_Clear to add new entry to log or clear
Expected Log sheet name is "Log" with columns starting B ready for log entries
Starting from B6, B5 has headers, everything is customized as usual.

CodeFunctionName

What is this?

Public

Tested

Original Work

Sub LogSheet_Add(LogEntry, Optional Wb = "This", Optional Shee = "Log", Optional CellA1 = "B5")
If Wb = "This" Then Wb = ThisWorkbook.Name
If Shee = "This" Then Shee = Workbooks(Wb).Worksheets(1).Name
NewRow = CountColumnCells(Left(CellA1, 1), Wb, Shee, 1) + 5
NewID = WorksheetFunction.Max(Workbooks(Wb).Worksheets(Shee).Range(CellA1).EntireColumn) + 1
Workbooks(Wb).Worksheets(Shee).Range(CellA1).Offset(NewRow - 1, 0).Value = NewID
Workbooks(Wb).Worksheets(Shee).Range(CellA1).Offset(NewRow - 1, 1).Value = Now
Workbooks(Wb).Worksheets(Shee).Range(CellA1).Offset(NewRow - 1, 2).Value = LogEntry
End Sub
Sub LogSheet_Clear(Optional Wb = "This", Optional Shee = "Log", Optional CellA1 = "B5")
If Wb = "This" Then Wb = ThisWorkbook.Name
If Shee = "This" Then Shee = Workbooks(Wb).Worksheets(1).Name
LastRow = Workbooks(Wb).Worksheets(Shee).Range("A1").EntireColumn.Rows.Count
Workbooks(Wb).Worksheets(Shee).Range(CellA1, Left(CellA1, 1) & LastRow).EntireRow.ClearContents
End Sub

LogEntry, Optional Wb, Optional Shee, Optional CellA1
Or
Optional Wb, Optional Shee, Optional CellA1