I am not sure that I understand correctly but am I correct in that you want
to re-select the last selection prior clicking the command button?

If the above is correct then you could use a worksheet selection change
event and always save the selection. However, the varible needs to be
declared in the Declarations area at the top of the module before any subs.

Dim SELECTEDCELL As Range

Private Sub CommandButton1_Click()
Dim cell As Range

For Each cell In Sheet7.Range("electrical")
If PromptInsertItem.Category.Value = cell.Value Then
cell.Offset(1, 0).Insert SHIFT:=xlDown

End If
Next

Range("A18:x18").Select
Selection.Copy
ActiveSheet.Paste

PromptInsertItem.Hide

SELECTEDCELL.Select

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set SELECTEDCELL = Target
End Sub

--
Regards,

OssieMac