Bringing me back to a sheet

[ERed1]

Hey all,

I have this copy and paste code for a button. Here is the code:
If Range("B16").Value = "Dog" Then
Sheets("Animals").Range("A16:D19").Copy
Sheets("Finished").Activate
lastrow = Range("A65536").End(xlUp).Row
Cells(lastrow + 5, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Animals").Range("A125:D130").Copy
Sheets("Finished").Activate
lastrow = Range("A65536").End(xlUp).Row
Cells(lastrow + 1, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If


After it gets pasted, I get stuck on the finished page. Is there a way to bring me back to the "Animals" sheet? Thanks in advance.

 

[Joe4]

Just add:

[COLOR=#333333]Sheets("Animals").Activate[/COLOR]

 

[ERed1]

Just add:

[COLOR=#333333]Sheets("Animals").Activate[/COLOR]

Worked great. Thank you!

 

[Joe4]

You are welcome.

 

[Norie]

Or don't activate the other sheet in the first place.

If Range("B16").Value = "Dog" Then

    With Sheets("Finished")

        Sheets("Animals").Range("A16:D19").Copy

        lastrow = .Range("A65536").End(xlUp).Row
        .Cells(lastrow + 5, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Sheets("Animals").Range("A125:D130").Copy

        lastrow = Range("A65536").End(xlUp).Row
        .Cells(lastrow + 1, 1).PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    End With

End If