Copy only table values to another DT

Help Studio
,
5

Hey @Sathish_Kumar_S can you try this using vba script

Sub CopyRedRows()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

Dim i As Long, targetRow As Long
targetRow = 1

Dim cell As Range
For i = 1 To lastRow
    ' Check first 10 columns for red fill
    For Each cell In ws.Range(ws.Cells(i, 1), ws.Cells(i, 10))
        If cell.Interior.Color = RGB(255, 0, 0) Then
            ws.Rows(i).Copy Destination:=ThisWorkbook.Sheets("Filtered").Rows(targetRow)
            targetRow = targetRow + 1
            Exit For
        End If
    Next cell
Next i

End Sub

cheers