VBA를 이용한 재고 활용보고 질문드립니다.

Sub Registercustomer()
 
Dim DB As Variant
 
Insert_Record itmlist, Me.txtType.Value, Me.txtLnumber.Value, Me.txtLocation.Value, Me.txtDlocation.Value, _
Me.txtName.Value, Me.txtModel.Value, Me.txtCategory.Value, Me.txtSize.Value, Me.txtAmount.Value, Me.txtMemo.Value
 
DB = Get_DB(itmlist)
 
Update_List Me.lstMain, DB, "0pt;50pt;70pt;50pt;100pt;200pt;0pt;100pt;100pt;60pt;50pt;"
 
 
End Sub

'########################
' 특정 워크시트에서 앞으로 추가해야 할 최대 ID번호 리턴 (시트 DB 우측 첫번째 머릿글)
' i = Get_MaxID(Sheet1)
'########################
Function Get_MaxID(WS As Worksheet) As Long
With WS
    Get_MaxID = .Cells(1, .Columns.Count).End(xlToLeft).Value
    .Cells(1, .Columns.Count).End(xlToLeft).Value = .Cells(1, .Columns.Count).End(xlToLeft).Value + 1
End With
End Function

'########################
' 특정 워크시트에서 앞으로 추가해야 할 최대 ID번호 리턴 (시트 DB 우측 첫번째 머릿글)
' i = Get_MaxID(Sheet1)
'########################
Function Get_MaxID(WS As Worksheet) As Long
With WS
<span style="background-color: #ffff00;">    Get_MaxID = .Cells(1, .Columns.Count).End(xlToLeft).Value</span>
    .Cells(1, .Columns.Count).End(xlToLeft).Value = .Cells(1, .Columns.Count).End(xlToLeft).Value + 1
End With
End Function