Pasting cut cells VBA

[JasonBing]

First to mention is that I am very green to VBA. I am starting to get my head around it but I am very green

I am writing a database for my business

I have a list of jobs on a GabttChart the data for each job is in groups of 10 rows see example

I have created a button to select and cut the group of 10 rows containing the data for one job. that works well

I need a code to paste the cut rows above the active cell

I know you can just select the row and insert cut cells. But I have people, with not a lot of computer experience using this and they have asked for a button!

This is the result I need would end up like this

Please Help!! I have combed the net for the answer

Thanks guys

Regards

JasonBing

 

[JasonBing]

it would appear the pictures did not post.

I am not sure why........ It has not been my day!

 

[Peter_SSs]

it would appear the pictures did not post.

I am not sure why........ It has not been my day!

Welcome to the MrExcel board!

Not sure how you tried to insert images. See the link in my signature block below for ways to post small samples of your sheet(s)

 

[JasonBing]

Welcome to the MrExcel board!

Not sure how you tried to insert images. See the link in my signature block below for ways to post small samples of your sheet(s)

I used the insert picture. Here is another try!! Thanks for your reply by the way!!

Here is the desired result

1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10

<colgroup><col width="83" span="7" style="width: 62pt;"></colgroup><tbody>
</tbody>

1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10
1	1	1	1	1	1	1
2	2	2	2	2	2	2
3	3	3	3	3	3	3
4	4	4	4	4	4	4
5	5	5	5	5	5	5
6	6	6	6	6	6	6
7	7	7	7	7	7	7
8	8	8	8	8	8	8
9	9	9	9	9	9	9
10	10	10	10	10	10	10

<colgroup><col width="83" span="7" style="width: 62pt;"></colgroup><tbody>
</tbody>

Thanks for your help

 

[JasonBing]

Not too sure how the second attempt went to post pictures.

I thought I would add that the reason for the cut and insert rows is because the Gantt Chart uses data in about 100 rows

Thanks