VBA Macro to Insert Rows based on Cell Value in Excel

Excel VBA Macro to Insert Rows based on Cell Value
Sub InsRows()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
K = 0

For X = 2 To 100

Y = Cells(X, 1).Value
    
    For Z = 1 To Y
          Cells(X, 1).Offset(1, 0).Rows.Insert
          Cells(X, 1).Offset(1, 0).Interior.ColorIndex = 24    
          K = K + 1
    Next Z

    X = (X + K)
    K = 0
 Next X
End Sub
------------------------------------------------------------------------------------------------
Example:
Suppose we have specified how many rows need to insert a as specified as follows:

Output:
Now the above Macro will insert the rows after each cell as shown below, based on number specified.

Thanks, TAMATAM

How to Find when the Table was last refreshed in SQL Server

How to Find when the Table was last updated by a user in SQL Server

SELECT OBJECT_NAME(OBJECT_ID) AS DatabaseName, Last_User_Update,*
FROM sys.dm_db_Index_Usage_Stats
WHERE Database_Id = DB_ID( 'TAMATAM') --Database name need to pass here
And Object_Id=Object_Id('TBL_Weekly_Data') --Table name need to pass here

--------------------------------------------------------------------------------------------------------

SELECT Distinct Last_User_Update
FROM sys.dm_db_Index_Usage_Stats
WHERE Object_id=Object_id('[dbo].[TBL_Weekly_Data]')

--------------------------------------------------------------------------------------------------------