Excel: VBA Code to go back to the source sheet after copy a range

[xitu]

I have the following code:

After copy a range from the original sheet to sheet "Data", how do I go back to the original sheet?



Sub CopyPressure()
Dim Fcell As String

If ActiveSheet.Name = ("Data&quot Then
MsgBox ("Go to the original sheet to select the first cell contained value in column Pressure&quot
Else
Fcell = InputBox("Type first cell in column ? Ex: B3", "Input required&quot
Range(Fcell).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Data&quot.Select
Range("A1&quot.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If

End Sub


Please help.
Thanks,
XT

 

[xitu]

I got it. Thanks anyway

ActiveSheet.Next.Select