Concatenate 5 cells into a single But including front zeroes or all zeros, e.i 000

Try this

Sub AAAAA()
Dim a As String, i As Long, j As Long
    For i = 1 To Cells(Rows.Count, 18).End(xlUp).Row
        a = CStr(Cells(i, 18))
            For j = 19 To 22
                a = a & "-" & CStr(Cells(i, j))
            Next j
        Cells(Rows.Count, 125).End(xlUp).Offset(1) = a
    Next i
End Sub