For Next (Do Loop)문을 이용하여 지정한 숫자로 그룹을 만들고 싶습니다.

분류번호에 #을 추가하려고 하는데

그룹명에도 같이 #이 붙어서 고민하고 있습니다.

ㅇㅇㅇㅇㅇ 그런데

이 셀에 있던 내용이 삭제가 되어 버립니다.

Sub Grouping()
Dim ws As Worksheet, rng As Range, i As Integer
Dim iTotal As Integer, iGroups As Integer, iNos As Integer

Set ws = Worksheets("Sheet1")

iTotal = ws.Cells(4, 2).Value
iGroups = ws.Cells(5, 2).Value
iNos = iTotal / iGroups

Set rng = ws.Cells(7, 5).CurrentRegion

With rng
.Clear
.Cells(1).Select
ActiveWindow.FreezePanes = False
Application.Wait Now() + TimeSerial(0, 0, 1)
Application.ScreenUpdating = False

.Resize(1, 5).Value = Array("그룹", "이름", "폰번호", "호칭", "분류번호") ' "그룹", "이름", "폰번호", "호칭", "분류번호"

End With

With ws
For i = 1 To iGroups
.Cells(8 + (i - 1) * iNos, 1).Resize(iNos, 1).Value = _
"#" & WorksheetFunction.Text(i, "0Cjk")         '앞에 "#"을 추가==============
'   * iNos, 2)

With .Cells(8 + (i - 1) * iNos, 5) ', 3
Select Case Len(iNos) '분류번호 그룹명
Case 1
.Formula2R1C1 = "=RC[-4]&TEXT(ROW(RC[-2]:R[" & iNos - 1 & "]C[-2])-ROW(RC[-2])+1, ""0"")"

Case 2
.Formula2R1C1 = "=RC[-4]&TEXT(ROW(RC[-2]:R[" & iNos - 1 & "]C[-2])-ROW(RC[-2])+1,""00"")"

Case 3
.Formula2R1C1 = "=RC[-4]&TEXT(ROW(RC[-2]:R[" & iNos - 1 & "]C[-2])-ROW(RC[-2])+1,""000"")"

Case Else

End Select

End With
Next i
End With
Set rng = ws.Cells(7, 5).CurrentRegion
With rng
With .Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
.Select
.Value = .Value
End With

' rng.Offset(1, -1).Cells(1).Select   '애러발생해서 Remark
ActiveWindow.FreezePanes = True
End With
ws.Cells(4, 3).Resize(2, 1).Select

Application.ScreenUpdating = True
Range("D4").Select
ActiveCell.Formula2R1C1 = "=R[-1]C[-2]*10"
Range("D5").Select

End Sub