Copy values from a range in one sheet and paste them into empty rows of a table in another sheet

[sopphiron]

I have a list of goods as can be seen below, I want to use a button (transfer data) to click on and the rows be copied into a table in another sheet in a way to fill the empty rows from the top of the table

Book1.xlsm
	A	B	C	D	E	F	G	H
1
2
3		Goods	Price	Count	Total Price
4		Good1	100	5	500
5		Good2	50	3	150
6		Good3	45	6	270
7		Good4	10	90	900
8
9
AAA

Cell Formulas
Range	Formula
E4:E6	E4	=D4*C4

the table the data to be copied in:

Book1.xlsm
	A	B	C	D	E	F	G
1
2		No	Goods	Price	Count	Total Price
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
BBB

 

[sxhall]

Hi sopphiron,

The code below will copy what is on tab AAA from cell B4 onwards and paste it to tab BBB at the bottom of any data already there. Will not do anything if there is nothing in cell B4 and works for any number of entries from 1 upwards.

Sub MoveData()

Dim Lrow As Integer

On Error GoTo 911

Lrow = Range("B3").End(xlDown).Row

    Range(Range("B4"), Range("B" & Lrow).End(xlToRight)).Copy
    
    Sheets("BBB").Select
    Range("C26").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

911

End Sub

I've run it twice in my example below...

To make this run with a button add in any shape you like, right click >assign macro and select 'MoveData'. Done!