copy & paste last 10 visible values

[Meena_Sassati]

hello friends

I want to copy last 10 visible values of column A. i have below macro, can anyone help me.

Sub Filter_Copy_Paste()
    ' filter coulmn "A"
    With Sheets("EOD")
    .Range("A1:B30000").AutoFilter field:=1, Criteria1:=Sheets("System").Range("C2").Value
    End With
    ' Copy only visible rows to another sheets on same workbook
    Dim src As Worksheet
    Dim tgt As Worksheet
    Dim filterRange As Range
    Dim copyRange As Range
    Dim lastRow As Long

    Set src = ThisWorkbook.Sheets("EOD")
    Set tgt = ThisWorkbook.Sheets("System")
    
    lastRow = src.Range("B" & src.Rows.Count).End(xlUp).Row
    
    Set filterRange = src.Range("B2:B" & lastRow)
    Set copyRange = src.Range("B2:B" & lastRow)
    copyRange.SpecialCells(xlCellTypeVisible).Copy tgt.Range("B7")
   
    Set filterRange = src.Range("F2:F" & lastRow)
    Set copyRange = src.Range("F2:F" & lastRow)
    copyRange.SpecialCells(xlCellTypeVisible).Copy tgt.Range("C7")
End Sub

Thanks in advance.

[Meena_Sassati]

i tried Lastrow - 9, but not working

[JOHN H. DAVIS]

This is probably not very helpful, but maybe:

Sub Meena_Sassati()
Dim x As Long, y As Long, z As Long
z = 0
x = Columns(1).SpecialCells(2).SpecialCells(12).SpecialCells(xlCellTypeLastCell).row
For y = x - 1 To 2 Step -1
    Cells(y, 1).Select
    If Rows(y).Hidden = False Then z = z + 1
    z = z
    If z = 10 Then Exit For
Next y
Range(Cells(ActiveCell.row, 1), Cells(x, 1)).SpecialCells(12).Select
End Sub

[Meena_Sassati]

Not Working.....

[JOHN H. DAVIS]

Can you attach a sample file showing a page before the macro is run and a page showing the result that you want?

[Meena_Sassati]

Hi John

Happy New Year...!!

Thanks for valuable time, the sample workbook is attached for your reference.


Thanks