I have written this code which works fine but i would like to know if it is
possible in some way to have the code execute but not lose the combo box
while the code darts back and forth across the sheet.

Private Sub ComboBox5_LostFocus()
' runs when combo box loses the focus
If Range("AP9") = False Then
With Worksheets("INPUT DAMAGE")
.Range("D2").Copy
.Range("AP12").Offset(rowOffset:=Range("AP10"), columnOffset:=0) _
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
.Application.CutCopyMode = False
.Range("AP13").sort Key1:=Range("AP14"), Order1:=xlAscending,
Header:=xlGuess _
, OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom
End With
Range("A1").Select
End If
End Sub

Thanks in advance, Nigel