Inserting "template" rows

  • Thread starter Thread starter shikamikamoomoo
  • Start date Start date
S

shikamikamoomoo

Hi...I have a payroll sheet that I need to insert 3 rows of copied text
at each blank line. I'm sure there is a way to do this using VBA code
or something of that sort, but I do not know how to do it. Simply put I
need...

If the row is blank, insert rows 1:3 from sheet 2.....or even better if
I did not need to have "sheet two" and I could insert preset rows of
information.

If someone could please help me out or point me in the right direction
to find out how to do this I would really appreciate it. Thanks!

Jenny
 
Hi Jenny,

Try:

'=========================>>
Sub Tester02()

Dim sh1 As Worksheet, sh2 As Worksheet
Dim insRng As Range, RngDest As Range
Dim rCell As Range
Dim Lrow As Long, i As Long, j As Long


With ThisWorkbook
Set sh1 = .Sheets("Sheet1") '<<======= CHANGE
Set sh2 = .Sheets("Sheet2") '<<======= CHANGE
End With

Lrow = sh1.Cells(Rows.Count, "A").End(xlUp).Row

Set insRng = sh2.Rows("1:3")

For i = Lrow To 1 Step -1
If IsEmpty(Cells(i, 1)) Then
insRng.Copy
Cells(i, 1).Insert Shift:=xlDown
Rows(i + 3).Delete
End If
Next
End Sub
'<<=========================

Change "Sheet1" to the name of the payroll sheet; similarly change "Sheet2",
if necessary.

Test the procedure on a copy of your workbook to ensure that my
interpretaion accords with your needs.

---
Regards,
Norman



"shikamikamoomoo"
 
Back
Top