Amend working copy and paste filtered range...to cut and paste instead

[gazmoz17]

Hi,

Can this code be amended to cut and paste instead of copy and paste. I wish for it to be dynamic so dont want to specify a named range or sheet name.

Ideally can you cut and paste but not override the detaination cells current formatting?

ub CopyVisibleToVisible1() 'use this for: 'Copy paste(value only): 'from filtered range to filtered range 'from filtered range to unfiltered range 'from unfiltered range to filtered range 'Not work on hidden column    Dim rngA As Range    Dim rngB As Range    Dim r As Range    Dim Title As String    Dim ra As Long    Dim rc As Long        On Error GoTo skip:        Title = "Copy Visible To Visible"    Set rngA = Application.Selection    Set rngA = Application.InputBox("Select Range to Copy then click OK:", Title, rngA.Address, Type:=8)        Set rngB = Application.InputBox("Select Range to Paste (select the first cell only):", Title, Type:=8)    Set rngB = rngB.Cells(1, 1)    Application.ScreenUpdating = False    ra = rngA.Rows.Count    rc = rngA.Columns.Count    If ra = 1 Then rngB.Resize(, rc).Value = rngA.Value: Exit Sub        Set rngA = rngA.Cells(1, 1).Resize(ra, 1)        For Each r In rngA.SpecialCells(xlCellTypeVisible)      rngB.Resize(1, rc).Value = r.Resize(1, rc).Value        Do          Set rngB = rngB.Offset(1, 0)        Loop Until rngB.EntireRow.Hidden = False    Next        Application.GoTo rngB    Application.ScreenUpdating = True    Application.CutCopyMode = False Exit Sub skip:    If Err.Number <> 424 Then        MsgBox "Error found: " & Err.Description    End If        Application.ScreenUpdating = True    Application.CutCopyMode = False End Sub

Many Thanks