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.

Assigned Role	Assigned
1-2-8-26-1-1-11	ARTHUR
1-2-8-26-1-1-11	CHARLOTTE
	Subtotal
1-2-8-26-1-2-13	MARSHALL
1-2-8-26-1-2-13	MATTHEW
1-2-8-26-1-2-13	PASCAL
	Subtotal
1-2-8-26-1-1-12	ABRIL
1-2-8-26-1-1-12	BRIA
1-2-8-26-1-1-12	DIANNA
	Subtotal
1-2-8-26-2-2-12	JERMELL
	Subtotal

<colgroup><col><col></colgroup><tbody>
</tbody>

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

Assigned Role	Assigned
1-2-8-26-1-1-11	ARTHUR
1-2-8-26-1-1-11	CHARLOTTE
1-2-8-26-1-2-13	MARSHALL
1-2-8-26-1-2-13	MATTHEW
1-2-8-26-1-2-13	PASCAL
1-2-8-26-1-1-12	ABRIL
1-2-8-26-1-1-12	BRIA
1-2-8-26-1-1-12	DIANNA
1-2-8-26-2-2-12	JERMELL

<colgroup><col><col></colgroup><tbody>
</tbody>

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