Transfer data from worksheet to summary page

Sub GenerateQuote()

Dim tSheet As String
Dim lMax_tRows As Long
Dim lStartA_tRow As Long

Dim itemID_tCol As String
Dim itemDes_tcCol As String
Dim totalItem_tCol As String
Dim totalCost_tCol As String

Dim qSheet As String
Dim lStart_qRow As Long
Dim lMax_qRows As Long

Dim itemID_qCol As String
Dim itemDes_qcCol As String
Dim totalItem_qCol As String
Dim totalCost_qCol As String


    tSheet = "Quoting Tool"
    itemID_tCol = "A"
    itemDesc_tCol = "B"
    totalItem_tCol = "N"
    totalCost_tCol = "O"
    lStartAt_tRow = 5
    
    qSheet = "BOQ"
    totalItem_qCol = "C"
    itemID_qCol = "D"
    itemDesc_qCol = "E"
    totalCost_qCol = "F"
    lStartAt_qRow = 4
    
    Sheets(tSheet).Select
    
    lMax_tRows = Cells(Rows.Count, "A").End(xlUp).Row
    
    lMax_qRows = lStartAt_qRow
    For lRowBeanCounter = lStartAt_tRow To lMax_tRows
        
        If (Range(totalCost_tCol & lRowBeanCounter) <> 0) Then
        
            With Sheets(qSheet)
            
                .Range(itemID_qCol & lMax_qRows) = Range(itemID_tCol & lRowBeanCounter).Value
                .Range(itemDesc_qCol & lMax_qRows) = Range(itemDesc_tCol & lRowBeanCounter).Value
                .Range(totalItem_qCol & lMax_qRows) = Range(totalItem_tCol & lRowBeanCounter).Value
                .Range(totalCost_qCol & lMax_qRows) = Range(totalCost_tCol & lRowBeanCounter).Value
                
            End With
        
            lMax_qRows = lMax_qRows + 1
            
        
        End If
        
    Next lRowBeanCounter

End Sub