Hi all,

I have a filtered worksheet say worksheet2. I want to copy the second visible cell in a column to a range in worksheet 2, then do the same with the 3rd visible cell, i have a part code shown below but it copies hidden cells. Any help much appreciated. I also only want to copy paste the value in the visible cells.

Sub Macro2()

    Sheets("Data-2").Range ("A1")
    ActiveSheet.Range("$A$1:$P$65565").AutoFilter Field:=1, Criteria1:= _
        "Jalalabad 1"
    ActiveWorkbook.Worksheets("Data-2").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data-2").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C1:C15"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Data-2").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheet4.Range("I3").Copy
    Sheet1.Range("M62").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("I4").Copy
    Sheet1.Range("M63").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("I5").Copy
    Sheet1.Range("M64").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("F3").Copy
    Sheet1.Range("M47").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("F4").Copy
    Sheet1.Range("M46").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("F5").Copy
    Sheet1.Range("M45").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("J3").Copy
    Sheet1.Range("E84").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("J4").Copy
    Sheet1.Range("E83").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("J6").Copy
    Sheet1.Range("E82").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("K3").Copy
    Sheet1.Range("G84").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("K4").Copy
    Sheet1.Range("G83").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("K6").Copy
    Sheet1.Range("G82").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("L3").Copy
    Sheet1.Range("J84").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("L4").Copy
    Sheet1.Range("J83").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("L5").Copy
    Sheet1.Range("J82").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("M3").Copy
    Sheet1.Range("K84").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("M4").Copy
    Sheet1.Range("K83").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("M6").Copy
    Sheet1.Range("K82").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("N3").Copy
    Sheet1.Range("N84").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("N4").Copy
    Sheet1.Range("N83").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("N6").Copy
    Sheet1.Range("N82").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheet4.Range("$A$2:$P$65565").AutoFilter Field:=1
End Sub