Copy filtered data, not header

I am using the following code to copy filtered data ONLY from 6 worksheets and paste the data to a new worksheet. It works fine, except when there is no data. When there is no data, the code copies cell A1 from the header. i do not want the header copied.

If there is a way to clean up the code, that would be helpful as well.

Sub Test1()
Dim LR As Long, LC As Integer

Sheets("FLR").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Sheets("PCL").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Sheets("KWT").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Sheets("KRP").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(3, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Sheets("SWS").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(3, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Sheets("KTO").Select
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(3, 1), Cells(LR, LC)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Log").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
ActiveSheet.Paste


End Sub

The following from your code gets highlight as an error,

For Each ws In Sheets(Array("FLR", "PLC", "KWT", "KRP", "SWS", "KTO"))

I don't fully understand the code, all the worksheets (FLR", "PLC", "KWT", "KRP", "SWS", "KTO) are in one workbook. Sounds like the code is referenceing different workbooks, probably wrong, but thought I'd mention it.

OK, I re-wrote the names of the sheets in the ordeer they appear, not sure if that was the problem or not, but it seem to get past it. I now get a run time error 1004 - No cells were found and this bit of code highlighted.

.Range(.Cells(2, 1), .Cells(LR, LC)).SpecialCells(xlCellTypeVisible).Copy _
                Sheets("Log").Cells(Rows.Count, "A").End(xlUp).Offset(1)

Your first bit of code seems to work fine, but the second works only if there is data. If the filter does not have any data, the code does notlike it.

I attempted to do a ws similar to what I am working wit, but both sets of code worked on it. Maybe it has to do with that I am pulling the data from sharepoint.