Copy Visible cell only

[KIM Chanthan]

Hi,

I have some issue regarding copy visible cell only. Can anyone help please?
Below is my full code.

KIM Chanthan
You have asked many time to
>>> use code - tags <<<

Sub Con_Each_File_to_Each_Tab()

Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Set Master = Workbooks("Consolidate - V2.xlsm")
FolderPath = ActiveWorkbook.Path & "\"
Filename = Dir(FolderPath & "*.xlsb*")

Do While Filename <> ""
    Application.ScreenUpdating = False
    Application.AskToUpdateLinks = False
    Application.DisplayAlerts = False
        Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
        Set BranchWB = ActiveWorkbook
        Name = Worksheets("Disbursement Plan").Range("E2").Value
        Worksheets("Disbursement Plan").Range("A1:AR43").Copy
        Master.Worksheets(Name).Activate
        Range("A1").PasteSpecial xlPasteValues
       
            n = Master.Worksheets("Plan by CO-KHR").Range("B2").CurrentRegion.Rows.Count + 1
           
                BranchWB.Activate
                Worksheets("Consol-KHR").Unprotect "password1"
                Worksheets("Consol-KHR").Range("B4:AJ115").Select
                Selection.SpecialCells(xlCellTypeVisible).Select
                Selection.Copy
                Master.Worksheets("Plan by CO-KHR").Activate
                Range("B" & n).PasteSpecial xlPasteValues
               
        Workbooks(Filename).Close Savechanges:=False
        Filename = Dir()
    Application.AskToUpdateLinks = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
Loop
End Sub

 

[vletm]

KIM Chanthan
I notice again that same issue - - You didn't use code - tags.
Is it that issue
or
what kind of issues do You have in Your mind?

 

[KIM Chanthan]

KIM Chanthan
I notice again that same issue - - You didn't use code - tags.
Is it that issue
or
what kind of issues do You have in Your mind?

Sorry, i forget using it.

 

[vletm]

KIM Chanthan
What about those Your having issues?