Columns not showing correctly

I'm able to display the data I take out from db worksheet as rows correctly. But I'm unable to display it as columns correctly...what is wrong?

Private Sub CommandButton1_Click()

Dim intRow As Integer
Dim custIDchosen As String

intRow = 2

Do While Worksheets("db").Cells(intRow, 2).Value <> ""
    If CStr(Worksheets("db").Cells(intRow, 1).Value) = Sheets("nvT").Range("b1").Value Then
        
        cusID = Worksheets("db").Cells(intRow, 5).Value
        cus = Worksheets("db").Cells(intRow, 4).Value
        Sheets("nvT").Range("a" & Rows.Count).End(xlUp)(2).Resize(, 2).Value = _
        Array(cusID, cus)
        
        proID = Worksheets("db").Cells(intRow, 7).Value
        pro = Worksheets("db").Cells(intRow, 8).Value
        Worksheets("Sheet1").Range("b1", Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft))(3).Value = _
        Array(proID)
    End If
    
    intRow = intRow + 1
 Loop
 

 
End Sub

Pukka83, please take a moment to look at the forum rules (rule 1) they will help you get the best from this forum and help others to help you.

Please click on the edit button on your post then Go Advanced and change your title for something that better describes your problem - a good rule of thumb is to create a title that would match a kind of search in Google. e.g Rather than "Please Help Not Functioning" perhaps the title should be "Formula not producing required results", i know these aren't your titles or problems but it would give you a better idea.