Pular linha numa planilha por VBA

Fernando Ap · 4 de dezembro de 2013

Bom dia pessoal. Estou desenvolvendo um algorítimo que através de uma planilha geral, vai, em outra pasta de trabalho, criar um relatório mais simplificado. Eu consegui escrever parte do código que vai fazer isso, mas não consigo o mais simples... pular linha. Da forma que estou no momento, consigo colocar as informações na nova planilha gerada, mas todos os dados são sobrescritos, ou seja, fico a pena com uma linha de informação. Abaixo código:

Sub geraRelatorioProducao()
'Local onde os valores da lista são atribuídos na planilha Modelo.
Const sPedido As String = "A4"
Const sDataEntrega As String = "B4"
Const sBoqModel As String = "C4"
Const sMaterial As String = "D4"
Const sCliente As String = "E4"
Const sResumoPedido As String = "F4"

Dim lLast As Long
Dim lRow As Long
Dim wb As Workbook
Dim wsLista As Worksheet
Dim ws As Worksheet
Dim dataConvertida

Set wsLista = ThisWorkbook.Sheets("Dezembro")

'Opcional: descomente a linha abaixo para aumentar a velocidade
    'de elaboração dos relatórios:
    Application.ScreenUpdating = False

With wsLista
    lLast = .Cells(.Rows.Count, "A").End(xlUp).Row

    Set wb = Workbooks.Add(xlWBATWorksheet)
    ThisWorkbook.Sheets("RelatorioProducao").Copy Before:=wb.Sheets(1)
    Set ws = wb.Sheets(1)

    For lRow = 3 To lLast
         ws.Range(sPedido) = .Cells(lRow, "D")
         ws.Range(sDataEntrega) = Format(.Cells(lRow, "B").Value, "dd/mm/yyyy")
         ws.Range(sBoqModel) = .Cells(lRow, "I")
         ws.Range(sMaterial) = .Cells(lRow, "J")
         ws.Range(sCliente) = .Cells(lRow, "F")
         ws.Range(sResumoPedido) = .Cells(lRow, "K")
    Next lRow

End With
End Sub

Alguém pode me ajudar? Especialmente se eu estiver com algo muito errado. Sou novo em VBA e essa é minha primeira experiência com esse tipo de programação. Obrigado!