Counting used cells in forms not working in different places

HI everyone
I'm new in vba excel but trying to use it to help me in my job , so I already create one to save my time by copy paste data from one excel sheet and fill it in another excel sheet designed forms.
It's working great, till last code for counting total used rows in each form , It's working with first form but forms below what every their quantity not working I couldn't figure out

here is the code for first form which is working fine

Set rngk = ws2.Range("ae45")
fil = ws2.Range("L50:L68").Cells.SpecialCells(xlCellTypeConstants).Count
rngk.Value = "NUMBER OF DRAWINGS SPECIFY ON THIS SHEET " & fil & ")"

and here is the second one to do the same in below forms

Set rngk1 = ws2.Range("ae45").Offset(g * a, 0)
fil1 = ws2.Range("L50:L68").Offset(i * a, 0).Cells.SpecialCells(xlCellTypeConstants).Count

rngk1.Value = "NUMBER OF DRAWINGS ON THIS SHEET " & fil1 & ")"

i=18
g=36
a= 1 to cnt ( which is no of forms to be created)INFO.png

Not working , because it must i not g INFO1.png

OK
I WILL POST MY FULL CODE HERE


Sub TRSFTSTmossab()

Dim rng11 As Range
Dim rng12 As Range
Dim rng13 As Range
Dim rng14 As Range
Dim lastrow As Long

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("sht1")
Set ws2 = Worksheets("sht7")

Dim rng5 As Range
Dim rng6 As Range
Dim rng7 As Range
Dim rng8 As Range
Dim rng20 As Range
Dim rnge21 As Range


Dim i As Integer
Dim a As Integer
Dim Y As Integer
Dim g As Integer
Dim x As Integer
Dim cnt As Long
Dim cnt1 As Long
Dim cnt2 As Long
Dim cnt3 As Long


Dim rngf As Range
Dim rngh As Range
Dim rngm As Range
Dim rngn As Range
Dim rngo As Range
Dim rngp As Range
Dim rngy As Range
Dim rngw As Range


Set rngh = ws2.Range("i13:k13")
Set rngf = ws2.Range("i14:k32")
Set rngm = ws2.Range("f14:h32")
Set rngn = ws2.Range("c14:e32")


Set rngy = ws2.Range("a13:b13")
Set rngw = ws2.Range("a14:b32")

Set rngo = ws2.Range("l13:al13")
Set rngp = ws2.Range("l14:al32")




Dim tot As Long

Dim fil As Long
Dim rngk As Range


Set rng5 = ws1.Range("a19:a37")
Set rng6 = ws1.Range("b19:b37")
Set rng7 = ws1.Range("c19:c37")
Set rng8 = ws1.Range("d19:d37")
Set rng20 = ws1.Range("e19:e37")



Set rng11 = ws2.Range("C50:E68")
Set rng12 = ws2.Range("F50:H68")
Set rng13 = ws2.Range("I50:K68")
Set rng14 = ws2.Range("L50:AL68")
Set rng22 = ws2.Range("A50:B68")

i = 18
Y = 19

Application.ScreenUpdating = False

With ws1
tot = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

cnt1 = ws1.Range("A1:A18").Rows.Count
cnt2 = tot - cnt1
cnt = cnt2 / Y
If cnt < 1 Then
cnt = 1 + cnt
cnt = Fix(cnt)
Else

End If



rng5.Copy
rng11.PasteSpecial

rng6.Copy
rng12.PasteSpecial

rng7.Copy
rng13.PasteSpecial

rng8.Copy
rng14.PasteSpecial

rng20.Copy
rng22.PasteSpecial


Set rngk = ws2.Range("ae45")
fil = ws2.Range("L50:L68").Cells.SpecialCells(xlCellTypeConstants).Count
rngk.Value = "NUMBER OF DRAWINGS SPECIFY ON THIS SHEET " & fil & ")"




rngy.Select
Selection.Copy
rng22.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng12.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng13.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng11.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngo.Select
Selection.Copy
rng14.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

' UP TO HERE IS FOR FIRST FORM AND IT'S WORKING FINE NOW DOWN IN CASE IF DATA IN SHEET 1 IS TOO MANY WHICH NEED MORE THAN ONE
'FORM





'If cnt > 1 Then


For a = 1 To cnt
g = 36

rng5.Offset(Y * a, 0).Copy
rng11.Offset(g * a, 0).PasteSpecial

rng6.Offset(Y * a, 0).Copy
rng12.Offset(g * a, 0).PasteSpecial

rng7.Offset(Y * a, 0).Copy
rng13.Offset(g * a, 0).PasteSpecial

rng8.Offset(Y * a, 0).Copy
rng14.Offset(g * a, 0).PasteSpecial

rng20.Offset(Y * a, 0).Copy
rng22.Offset(g * a, 0).PasteSpecial


Next a



Dim rngkk As Range
Dim fill As Long




Set rngkk = ws2.Range("AE45").Offset(g * a, 0)
fill = ws2.Range("l50:l68").Offset(i * a, 0).Cells.SpecialCells(xlCellTypeConstants).Count
rngkk.Value = "NUMBER OF DRAWINGS SPECIFY ON THIS SHEET " & fill & ")"




For x = 1 To cnt

rngy.Select
Selection.Copy
rng22.Offset(g * x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng13.Offset(g * x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng12.Offset(g * x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngh.Select
Selection.Copy
rng11.Offset(g * x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

rngo.Select
Selection.Copy
rng14.Offset(g * x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


Next x


'Else
'End If


End Sub



INFO3.png

This sheet no 1 which i take data from and fill it to the form which i post previously,
now the code is copy and pasting and arranging everything
except the last thing which the forms after getting filled , there is a total no of used rows in each form usually max 19 =y
i=18 which is the distance between each group of rows
g=36 distance between first range (ae45) and (ae81") to contain the total rows

So the forms below the code which i show you is not giving the total , i don't know where is the misake

FIRST: SORRY BECAUSE THIS IS THE FIRST TIME FOR ME TO POST IN FORUM
THE CODE

Sub TRSFTSTmossab()

Dim rng11 As Range
Dim rng12 As Range
Dim rng13 As Range
Dim rng14 As Range
Dim lastrow As Long

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("sht1")
Set ws2 = Worksheets("sht7")

Dim rng5 As Range
Dim rng6 As Range
Dim rng7 As Range
Dim rng8 As Range
Dim rng20 As Range
Dim rnge21 As Range


Dim i As Integer
Dim a As Integer
Dim Y As Integer
Dim g As Integer
Dim x As Integer
Dim cnt As Long
Dim cnt1 As Long
Dim cnt2 As Long
Dim cnt3 As Long


Dim rngf As Range
Dim rngh As Range
Dim rngm As Range
Dim rngn As Range
Dim rngo As Range
Dim rngp As Range
Dim rngy As Range
Dim rngw As Range


Set rngh = ws2.Range("i13:k13")
Set rngf = ws2.Range("i14:k32")
Set rngm = ws2.Range("f14:h32")
Set rngn = ws2.Range("c14:e32")


Set rngy = ws2.Range("a13:b13")
Set rngw = ws2.Range("a14:b32")

Set rngo = ws2.Range("l13:al13")
Set rngp = ws2.Range("l14:al32")




Dim tot As Long

Dim fil As Long
Dim rngk As Range


Set rng5 = ws1.Range("a19:a37")
Set rng6 = ws1.Range("b19:b37")
Set rng7 = ws1.Range("c19:c37")
Set rng8 = ws1.Range("d19:d37")
Set rng20 = ws1.Range("e19:e37")


        
Set rng11 = ws2.Range("C50:E68")
Set rng12 = ws2.Range("F50:H68")
Set rng13 = ws2.Range("I50:K68")
Set rng14 = ws2.Range("L50:AL68")
Set rng22 = ws2.Range("A50:B68")

i = 18
Y = 19

Application.ScreenUpdating = False

With ws1
tot = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

cnt1 = ws1.Range("A1:A18").Rows.Count
cnt2 = tot - cnt1
cnt = cnt2 / Y
If cnt < 1 Then
cnt = 1 + cnt
cnt = Fix(cnt)
Else

End If


rng5.Copy
rng11.PasteSpecial

rng6.Copy
rng12.PasteSpecial

rng7.Copy
rng13.PasteSpecial

rng8.Copy
rng14.PasteSpecial

rng20.Copy
rng22.PasteSpecial

Set rngk = ws2.Range("ae45")
fil = ws2.Range("L50:L68").Cells.SpecialCells(xlCellTypeConstants).Count
rngk.Value = "NUMBER OF DRAWINGS SPECIFY ON THIS SHEET  :(" & fil & ")"

rngy.Select
 Selection.Copy
 rng22.Select
 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng12.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng13.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng11.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngo.Select
    Selection.Copy
    rng14.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

' UP TO HERE IS FOR FIRST FORM AND IT'S WORKING FINE NOW DOWN IN CASE IF DATA IN SHEET 1 IS TOO MANY WHICH NEED MORE THAN ONE
'FORM
 'If cnt > 1 Then

For a = 1 To cnt
g = 36

rng5.Offset(Y * a, 0).Copy
rng11.Offset(g * a, 0).PasteSpecial

rng6.Offset(Y * a, 0).Copy
rng12.Offset(g * a, 0).PasteSpecial

rng7.Offset(Y * a, 0).Copy
rng13.Offset(g * a, 0).PasteSpecial

rng8.Offset(Y * a, 0).Copy
rng14.Offset(g * a, 0).PasteSpecial

rng20.Offset(Y * a, 0).Copy
rng22.Offset(g * a, 0).PasteSpecial

Next a

Dim rngkk As Range
Dim fill As Long
   
 Set rngkk = ws2.Range("AE45").Offset(g * a, 0)
fill = ws2.Range("l50:l68").Offset(i * a, 0).Cells.SpecialCells(xlCellTypeConstants).Count
rngkk.Value = "NUMBER OF DRAWINGS SPECIFY ON THIS SHEET  :(" & fill & ")"

For x = 1 To cnt

   rngy.Select
    Selection.Copy
    rng22.Offset(g * x).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng13.Offset(g * x).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng12.Offset(g * x).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngh.Select
    Selection.Copy
    rng11.Offset(g * x).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    rngo.Select
    Selection.Copy
    rng14.Offset(g * x).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
     Next x
    
'Else
'End If
   
 End Sub

SECOND : I PUT THE SCREENSHOT TO GIVE YOU THE FULL IDEA OF DATA AND IT'S PROBLEM, WHEN YOU SAID ( I don't understand the nature of your data.)
I'M NOT ASKING YOU TO REDRAW ANY THING

Sht1 = ws1 is the source sheet
sht7 = ws2 is the target sheet ( screenshot in the beginning of this thread)

Any idea where is the mistake

Thanks for nothing , i did fix it