Copying with blanks

[HeyYouYesYouNoNotYouYou]

Hi, I have vba which works very well, it copies down to the last row and will paste on the first empty row, however when it is copying it skips blanks, does anybody know how my code could be modified so that it will copy and paste blanks? I'm copying and pasting from multiple workbooks so that is why I need the ability to paste on the next empty row.
Thanks in advance,
HeyYouYesYouNoNotYouYou,

Private Sub prde()'product description


Windows("sales.csv").Activate
Sheets("Sheet2").Select
Dim FindRng As Range
Dim c As Range
Dim First As String
Dim Rng As Range
Set FindRng = Range("L:L")
With FindRng
Set c = .Find(What:="*", After:=FindRng.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
First = c.Address
Set Rng = c
Do
Set Rng = Union(Rng, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> First
End If
Rng.Select
End With


Selection.Copy Destination:=Workbooks("Manifest").Sheets("Reports").Range("A" & Rows.Count).End(xlUp).Offset(1)
Range("A1").Select
Windows("Manifest").Activate
Sheets("Reports").Select
End Sub

 

[ZAX]

Hey HeyYouYesYouNoNotYouYou,
The changes are in the red lines:

Private Sub prde()'product description


Windows("sales.csv").Activate
Sheets("Sheet2").Select
Dim FindRng As Range
Dim c As Range
Dim First As String
Dim Rng As Range
Set FindRng = Range("L:L")
With FindRng
Set c = .Find(What:="*", After:=FindRng.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
First = c.Address
Set Rng = c
Do
Set Rng = Union(Rng, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> First
End If
Rng.Select
End With


[COLOR="#FF0000"]Selection.Copy
Workbooks("Manifest").Sheets("Reports").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial(xlPasteAll)
Application.CutCopyMode = False[/COLOR]
Range("A1").Select
Windows("Manifest").Activate
Sheets("Reports").Select
End Sub

ZAX

 

[HeyYouYesYouNoNotYouYou]

Thanks mate

 

[ZAX]

Thanks mate

Ur welcome buddy