try this, if works fine we can assign the macro to cell I21 change event
Sub a()
LR = Sheets("Record").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Entry").Range("A24:M24").Copy
Sheets("Record").Cells(LR, 2).PasteSpecial xlPasteValues
Sheets("Record").Cells(LR, 2).PasteSpecial xlPasteFormats
Call deleterows
LR1 = Sheets("Work").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Entry").Range("A26:M35").Copy
Sheets("Work").Cells(LR1, 2).PasteSpecial Paste:=xlPasteValues
'Sheets("Work").Cells(LR1, 2).PasteSpecial xlPasteFormats
End Sub
Sub deleterows()
LR2 = Sheets("Work").Cells(Rows.Count, "B").End(xlUp).Row
For j = LR2 To 1 Step -1
If Cells(j, 2).Value = "" Then
Rows(j).Delete
Else
Exit For
End If
Next
End Sub
Bookmarks