VBA issue with appending data

[MikeL]

Hello,
I have been working on filtering data from 2 Workbooks and pasting to 1 Consolidated Workbook. My issue is with executing the code to append the data in Consolidated with the data from the second workbook

Code:
'Copy Data from Second Workbook (filtered, don't include header row A1)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:K" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

'Activate Consolidation WB and append (find next blank row and paste data)
Consolidation.Activate
With Sheets("Sheet1")
.Range("A1" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False


The problem is the character "-" appears in multiple lines between the two data sets.
Why does the dash appear? Thinking it might be something from copying the filtered data


thanks, Mike

 

[MikeL]

I was able to solve by replacing

.Range("A1" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll

with the below
.Range("A1").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteAll


Thanks

 

[VoG]

Sounds odd. Does this do the same thing?

'Copy Data from Second Workbook (filtered, don't include header row A1)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:K" & LR).SpecialCells(xlCellTypeVisible).Copy Destination:=Consolidation.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
Application.CutCopyMode = False

 

[MikeL]

Your code worked VoG.. I tried with multiple files and no "-" were created between the two data sets.

Thanks, Mike