Need help copy data from shee1 to sheet2

[muzzy]

I am looking for a Formulas or VBA to copy this to sheet 2. If I have this.

[TABLE="class: grid, width: 261"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Assigned Role
[/TD]
[TD]Assigned[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-11[/TD]
[TD]ARTHUR[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-11[/TD]
[TD]CHARLOTTE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Subtotal[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]MARSHALL[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]MATTHEW[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]PASCAL
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Subtotal[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]ABRIL[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]BRIA[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]DIANNA[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Subtotal[/TD]
[/TR]
[TR]
[TD]1-2-8-26-2-2-12[/TD]
[TD]JERMELL[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Subtotal
[/TD]
[/TR]
</tbody>[/TABLE]

But this is what I need I need the Subtotal to be removed so it will look like this.

[TABLE="class: grid, width: 261"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Assigned Role
[/TD]
[TD]Assigned[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-11[/TD]
[TD]ARTHUR[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-11[/TD]
[TD]CHARLOTTE[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]MARSHALL[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]MATTHEW[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-2-13[/TD]
[TD]PASCAL[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]ABRIL
[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]BRIA[/TD]
[/TR]
[TR]
[TD]1-2-8-26-1-1-12[/TD]
[TD]DIANNA[/TD]
[/TR]
[TR]
[TD]1-2-8-26-2-2-12[/TD]
[TD]JERMELL[/TD]
[/TR]
</tbody>[/TABLE]

Please can someone help thanks

 

[mole999]

i would macro record this,
add a filter
select subtotal and delete those rows
turn off filter
select the data,
copy > paste special the values on your new sheet

then you can modify the code / post here between code tags to make it more friendly

 

[muzzy]

I am sorry but I do not understand how to do that?

 

[syedalisajjad]

Do you want to append the rows to the existing sheet or copy the rows to an empty sheet?

 

[syedalisajjad]

Private Sub btnExport_Click()
Dim ws_src As Worksheet, ws_dst As Worksheet
Dim wb_src As Workbook

Set wb_src = ThisWorkbook
Set ws_src = wb_src.Sheets(1)
Set ws_dst = wb_src.Sheets(2)

LastDataRowNr = ws_src.Range("B" & ws_src.Rows.Count).End(xlUp).Row

Dim subTotal As String

subTotal = "Subtotal"

'Get the last filled row number
LastDataRow = ws_src.Range("A" & ws_src.Rows.Count).End(xlUp).Row
rngToCheck = "B2:B" & LastDataRow

For counter = 2 To LastDataRow
deleteRowRng = "B" & counter

If ws_src.Range(deleteRowRng).Value = "Subtotal" Then
ws_src.Rows(counter).Delete
End If
Next

rangeToCopy = "A1:B" & LastDataRow
ws_src.Range(rangeToCopy).Copy
ws_dst.Range(rangeToCopy).PasteSpecial





End Sub

 

[muzzy]

copy just the first two columns from this sheet name (Isell Daily Data) to this sheet name (Daily Dashboard).

 

[mole999]

you need to edit these

Set ws_src = wb_src.Sheets(1)
Set ws_dst = wb_src.Sheets(2)

 

[muzzy]

Is this what I do?

Set ws_src = wb_src.Daily Dashboard
Set ws_dst = wb_src.Isell Daily Data

It give me a error

 

[mole999]

try

Set ws_src = sheets("Daily Dashboard")
Set ws_dst = sheets("Isell Daily Data")

 

[muzzy]

I try it. and it copy the info from (Isell Daily Data) sheet to (Daily Dashboard) but it also over write (Isell Daily Data) with the same info that I am asking it to do. I need it only to copy the info from (Isell Daily Data) sheet to (Daily Dashboard) and not over write (Isell Daily Data).

Thanks