Macro to copy excel recordset and insert in to Database based on a condition

[chakkrav]

In Column "U" i have values "Y" or "N"
E.g. If U2 cell value is "Y" it should copy the whole row range A2:T2 recordset and insert the values in to a table in database &
should loop it till the end of the data. I would greatly Appreciate and welcome VBA experts advise in this regards.

[mana]

Option Explicit


Sub test()
    Dim wsS As Worksheet
    Dim wsD As Worksheet
    
    Set wsS = Sheets("Source")
    Set wsD = Sheets("Databese")
    
    With wsS.Range("U1", wsS.Range("U" & Rows.Count).End(xlUp))
        .AutoFilter
        .AutoFilter 1, "Y"
        If .SpecialCells(xlCellTypeVisible).Count > 1 Then
            .Offset(1).EntireRow.Columns("A:T").Copy _
                wsD.Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
        .AutoFilter
    End With
    
    wsD.Activate
    
End Sub

[chakkrav]

Hi Mana,

Many thanks for the reply.
But database is not a worksheet. I meant copy the source worksheet data to oracle database table. How should i use insert into SQL query in the code to copy the above filtered data.
Thanks in Advance

[mana]

Sorry. Please wait for the answers of other respondents.