macro to goole script -- 2

Hi, i want attached macro code, converted to google script code. Should be easy to do. And please bid only if i can manage it for the bidding price. thanks. The macro code is: Attribute VB_Name = "Module1" Sub CreateTable() Attribute CreateTable.VB_ProcData.VB_Invoke_Func = "P\n14" If Range("a1") <> "Group No." And Range("b1") <> "Entry Type" Then MsgBox "Please select the data sheet before running the macro." Exit Sub End If Dim mainWS As Worksheet Dim datemin, datemax, currdate As Date Dim kserv, lunch1, lunch2, totlunch, dinner As Long Dim lastrow As Long lastrow = Range("a1").End(xlDown).Row Set mainWS = ActiveSheet datemin = [login to view URL](Range("F:F")) datemax = [login to view URL](Range("F:F")) [login to view URL] = False On Error Resume Next Sheets("output").Delete [login to view URL] = True [login to view URL] = "Output" Range("a1") = "Date" Range("a2") = "KK Serv." Range("a3") = "Lunch 1" Range("a4") = "Lunch 2" Range("a5") = "[login to view URL]" Range("a6") = "Dinner" i = 2 For datemin = datemin To datemax Cells(1, i) = datemin i = i + 1 Next j = 2 For i = 2 To Range("a1").End(xlToRight).Column currdate = Cells(1, i) j = 2 Do While [login to view URL](j, 1) <> "" If [login to view URL](j, 6) = currdate Then If [login to view URL](j, 3) = 549 Or [login to view URL](j, 3) = 550 Then kserv = kserv + [login to view URL](j, 9) ElseIf [login to view URL](j, 3) > 709 And [login to view URL](j, 3) < 730 And [login to view URL](j, 7) > TimeSerial(9, 59, 59) And [login to view URL](j, 7) < TimeSerial(12, 15, 1) Then lunch1 = lunch1 + [login to view URL](j, 9) ElseIf [login to view URL](j, 3) > 709 And [login to view URL](j, 3) < 730 And [login to view URL](j, 7) > TimeSerial(12, 15, 59) And [login to view URL](j, 7) < TimeSerial(16, 0, 1) Then lunch2 = lunch2 + [login to view URL](j, 9) ElseIf [login to view URL](j, 3) > 829 And [login to view URL](j, 3) < 896 Then dinner = dinner + [login to view URL](j, 9) End If End If j = j + 1 Loop Cells(2, i) = kserv Cells(3, i) = lunch1 Cells(4, i) = lunch2 Cells(5, i) = lunch1 + lunch2 Cells(6, i) = dinner kserv = 0 lunch1 = 0 lunch2 = 0 dinner = 0 Next Range("b1:ba1").NumberFormat = "dd/mm/yyyy" Range("b1:ba1").[login to view URL] = True Range("a1").[login to view URL](xlEdgeBottom).LineStyle = xlContinuous Range("a1").[login to view URL](xlEdgeTop).LineStyle = xlContinuous Range("a1").[login to view URL](xlEdgeLeft).LineStyle = xlContinuous Range("a1").[login to view URL](xlEdgeRight).LineStyle = xlContinuous Range("a1").[login to view URL](xlInsideHorizontal).LineStyle = xlContinuous Range("a1").[login to view URL](xlInsideVertical).LineStyle = xlContinuous Range(Cells(2, 1), Cells(6, Range("a1").End(xlToRight).Column)).[login to view URL] = vbYellow End Sub