I am using the macro below however its copying formulas not values. How do i change this so it paste special please?
Sub Move_FlightPath()
'SelectedCell = ActiveCell.Address
If Selection.Value = "In The Hangar Waiting" Then
Workbooks.Open "V:\1 EBS Management System DO NOT CHANGE DOCUMENTS Q\Continuous Improvement\Continuous Improvement\C.I. Projects\Proposal Documents\Flight Path trial.XLSM"
Workbooks("Enquiry Proposal Trial.XLSM").Activate
'Worksheets("Enquiry").Activate
'Range(SelectedCell).Activate
ActiveCell.Offset(, 1).Resize(1, 19).Copy Destination:=Workbooks("Flight Path trial.XLSM").Worksheets("In The Hangar Waiting").Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
End If
End Sub
Sub Move_FlightPath()
'SelectedCell = ActiveCell.Address
If Selection.Value = "In The Hangar Waiting" Then
Workbooks.Open "V:\1 EBS Management System DO NOT CHANGE DOCUMENTS Q\Continuous Improvement\Continuous Improvement\C.I. Projects\Proposal Documents\Flight Path trial.XLSM"
Workbooks("Enquiry Proposal Trial.XLSM").Activate
'Worksheets("Enquiry").Activate
'Range(SelectedCell).Activate
ActiveCell.Offset(, 1).Resize(1, 19).Copy Destination:=Workbooks("Flight Path trial.XLSM").Worksheets("In The Hangar Waiting").Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
End If
End Sub