Macro to Paste Values over filtered selection

[nirvehex]

Hi,

I've developed a macro that pastes values for a highlighted selection even if that selection is filtered.

Two questions - have I done this correctly? Is there a way to build in an undo function? Obviously since it's a macro you can't just hit the undo button.

Sub PasteRight()
 
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.FillRight
   
End Sub
 
Sub PasteLeft()
 
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.FillLeft
   
End Sub

Thanks All!