Copy invoice dates to ledger

@vcoolio
Read your reply in an earlier post. copied it to my use, but this did not work. please help.
I am copying a list of cell entries from invoice to ledger using vba. All the copied entries must have the same date as copied from the invoice sheet to the ledger sheet(per use of button).
The next time the button is clicked, it should copy to the next empty rows on ledger sheet. Please help me with this. I cannot seem to get the date which is cell I5, to be copied against all the entries in Column A.

Also for the ledger, I want it to print statement for a user defined period, say 01 Jan 2014 to 01 Jan 2015 or randomly such as 12 April 2015 to 12 May 2015. Please help on that also.

Code:

Sub Button1_click()

Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("Invoice")
Dim v As String
Dim wb As String
Const sPath As String = "F:\Software\"

v = ws1.Range("A5").Value
wb = v & ".xlsx"
Workbooks.Open sPath & v & ".xlsx"
nxtRw = Sheets("Ledger").Range("B" & Rows.Count).End(xlUp).Row + 1

ws1.Range("B10:B24").Copy
Workbooks(wb).Sheets("Ledger").Range("D" & nxtRw).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ws1.Range("G10:G24").Copy
Workbooks(wb).Sheets("Ledger").Range("C" & nxtRw).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ws1.Range("H10:H24").Copy
Workbooks(wb).Sheets("Ledger").Range("I" & nxtRw).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ws1.Range("I10:I24").Copy
Workbooks(wb).Sheets("Ledger").Range("J" & nxtRw).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Dim rngCell As Range
Dim lrow As Long
Dim rng As Range

lrow = ws1.Cells(Rows.Count, 2).End(xlUp).Row
For Each rng In ws1.Range("B10:B" & lrow)
If Len(rng) > 0 Then
ws1.Range("I5").Copy
Workbooks(wb).Sheets("Ledger").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
Next
End Sub

_____

It copies 23 entries from the ws1 workbook, whereas I want to copy only B10:B24, also it does not omit empty cells.