이 작업은 VBA/매크로가 필수일까요?

Sub 체크리스트()
 
    Application.ScreenUpdating = False
 
    Dim ws As Worksheet, ws1 As Worksheet
    Set ws = Worksheets("점검표")
    Set ws1 = Worksheets("점수표")
 
    '// 데이터 추가될 마지막행
    Dim iRow As Long
    iRow = ws1.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
 
    '// 날짜, 점검자, 확인자 입력
    ws1.Cells(iRow, 1).Value = ws.Range("B1").Value '// 날짜
    ws1.Cells(iRow, 2).Value = ws.Range("B2").Value '// 점검자
    ws1.Cells(iRow, 3).Value = ws.Range("B3").Value '// 확인자
 
    '// 체크리스트 Point
    Dim Point As Integer
    Point = 0
 
    Dim Rng As Variant
    Dim cols As Variant
 
    Rng = Array("B5", "B6", "B7", "B8", "B9")
    cols = Array(5, 6, 7, 8, 9)
 
    Dim i As Integer
    For i = LBound(Rng) To UBound(Rng)
        If ws.Range(Rng(i)).Value = True Then Point = Point + 1
        ws1.Cells(iRow, cols(i)).Value = IIf(ws.Range(Rng(i)).Value = True, 1, 0)
    Next i
 
    '// 총점
    ws1.Cells(iRow, 4).Formula = "=SUM(E" & iRow & ":I" & iRow & ")"
 
    Application.ScreenUpdating = True
 
End Sub