Master Tracker - Summary Sheet

[msal727]

Hello all, first time posting here!

How can I modify this code to always look for the next available line? when I run this it just overrides whatever is already there.


Any help would be GREATLY appreciated! TIA

Sub add_diagnosticdeliverable()
'
' add_diagnosticdeliverable Macro
'


    'Copy the data
    Sheets("Deliverable Master List").Range("A3:I13").Copy
    'Activate the destination worksheet
    Sheets("Template").Activate
    'Select the target range
    Range("A2").Select
    'Paste in the target destination
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste


    Application.CutCopyMode = False
    
   
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub add_diagnosticdeliverable()
    Sheets("Deliverable Master List").Range("A3:I13").Copy Sheets("Template").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[msal727]

Thank you so much! That worked perfectly!

 

[Fluff]

You're welcome & thanks for the feedback

 

[msal727]

Hi & welcome to MrExcel.
How about

Sub add_diagnosticdeliverable()
    Sheets("Deliverable Master List").Range("A3:I13").Copy Sheets("Template").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Do you know if I can make this code specific to the sheet is being added to? so active sheet vs. sheets("Template")? TIA

 

[Fluff]

If you always want to copy to the active sheet rather than the Template use

Sub add_diagnosticdeliverable()
    Sheets("Deliverable Master List").Range("A3:I13").Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[msal727]

If you always want to copy to the active sheet rather than the Template use

Sub add_diagnosticdeliverable()
    Sheets("Deliverable Master List").Range("A3:I13").Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

AWESOME!! Thank you soo much!!

 

[Fluff]

Glad to help