ell_
01-21-2018, 09:52 PM
Hi, all
Is it possible if I apply a code where with every COUNTIF of 10 "3", the "A" will be copied and inserted to the bottom row of the 10th "3"? The code I wrote below is wrong I believe.
Do Until IsEmpty(Sheet1.Range("A"))
If Sheet1.Range("A") = Sheet1.Range("A")
For i = 2 To 6
Set rn = Sheet1.Range("A1")
rn.Copy
rn.Offset(1).Insert Shift:=xlDown
Loop
Application.ScreenUpdating = False
Hereby I attached an Excel file.
Thank you so much to all.
21420
Is it possible if I apply a code where with every COUNTIF of 10 "3", the "A" will be copied and inserted to the bottom row of the 10th "3"? The code I wrote below is wrong I believe.
Do Until IsEmpty(Sheet1.Range("A"))
If Sheet1.Range("A") = Sheet1.Range("A")
For i = 2 To 6
Set rn = Sheet1.Range("A1")
rn.Copy
rn.Offset(1).Insert Shift:=xlDown
Loop
Application.ScreenUpdating = False
Hereby I attached an Excel file.
Thank you so much to all.
21420