thank you dear Alex but it doesn’t solve my problem.
let me show you an example:
this is my code that should be show in my page
Sub Macro1()
Set ws = Worksheets("DataBase")
Data = ws.Range("H2:J2").Value
'LRow = ws.ListObjects("DB").Range.Rows.Count + 1
ws.Range("A" & LRow) = Data(1, 1)
ws.Range("C" & LRow) = Data(1, 2)
ws.Range("F" & LRow) = Data(1, 3)
End Sub
but I see this
Sub Macro1()
Set ws = Worksheets(& quot;DataBase& quot;)
Data = ws.Range(& quot;H2:J2& quot;).Value
'LRow = ws.ListObjects(& quot;DB& quot;).Range.Rows.Count + 1
ws.Range(& quot;A& quot; & amp;amp; LRow) = Data(1, 1)
ws.Range(& quot;C& quot; & amp;amp; LRow) = Data(1, 2)
ws.Range(& quot;F& quot; & amp;amp; LRow) = Data(1, 3)
End Sub
there must be a way to solve it without change in code