Sub copyRow()
    Application.ScreenUpdating = False
    Dim wbBase As Workbook, shSK As Worksheet
    Dim lr&, lc&, j&, r
    Set shSK = ThisWorkbook.Sheets(1)
    Set wbBase = Workbooks.Open(ThisWorkbook.Path & "\" & "base.xlsb")
    lc = shSK.Cells(6, Columns.Count).End(xlToLeft).Column
    With wbBase.Sheets(1)
        Set r = .Columns(1).Find(What:=shSK.Cells(6, 1), LookAt:=xlWhole)
        If r Is Nothing Then
            lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Else
            lr = r.Row
        End If
        For j = 1 To lc
            If shSK.Cells(6, j) <> 0 And .Cells(lr, j) = "" Then
                .Cells(lr, j).Value = shSK.Cells(6, j).Value
            End If
        Next j
    End With
    wbBase.Close True
End Sub