Macro that updates billed amounts and worked hours for employees

[robertmihai717]

Hello,

Can someone help me with a macro for monthly employee worked hours and billed amounts?
For example: collumn K thru N amounts should be moved to collumn I thru L and F thru G should move to M thru N.
But it can happen that in some months i get more rows and my macro is not picking up that at all.

 

[OaklandJim]

This sub does what you said. I hope that it is helpful?

Sub MoveValues()

    Dim iRowsToClear As Long

    With ThisWorkbook.Worksheets(1)
    
'       Get rid of columns I & J
        .Columns("I:J").Delete
        
'       Put values in columns F & G into M & N
        .Columns("M:N").Value = .Columns("F:G").Value
        
'       This shows how to get the # of rows of data in a column.
        iRowsToClear = .Range("F1").Offset(10000).End(xlUp).Row
        
        .Range("F1").Cells(1).Resize(iRowsToClear, 2).Value = ""
    
    End With

End Sub

Before and after

MoveData.xlsm
	F	G	H	I	J	K	L	M	N
1	Total Through 6/25/22			Total Through 3/25/22		Total Through 4/22/22		Total Through 5/20/22
2	1200	13456		6541	23415	3456	7400	3976	6400
3	360	4036.8		1962.3	7024.5	1036.8	2220	1192.8	1920
4	480	5382.4		2616.4	9366	1382.4	2960	1590.4	2560
5	600	6728		3270.5	11707.5	1728	3700	1988	3200
6	720	8073.6		3924.6	14049	2073.6	4440	2385.6	3840
7	840	9419.2		4578.7	16390.5	2419.2	5180	2783.2	4480
8	960	10764.8		5232.8	18732	2764.8	5920	3180.8	5120
9	1080	12110.4		5886.9	21073.5	3110.4	6660	3578.4	5760
10	1200	13456		6541	23415	3456	7400	3976	6400
11	1320	14801.6		7195.1	25756.5	3801.6	8140	4373.6	7040
12				7849.2	28098	4147.2	8880	4771.2	7680
13				8503.3	30439.5	4492.8	9620	5168.8	8320
14						4838.4	10360	5566.4	8960
15						5184	11100	5964	9600
16								6361.6	10240
17								6759.2	10880
18								7156.8	11520
19								7554.4	12160
Sheet1

MoveData.xlsm
	F	G	H	I	J	K	L	M	N
1				Total Through 4/22/22		Total Through 5/20/22		Total Through 6/25/22
2				3456	7400	3976	6400	1200	13456
3				1036.8	2220	1192.8	1920	360	4036.8
4				1382.4	2960	1590.4	2560	480	5382.4
5				1728	3700	1988	3200	600	6728
6				2073.6	4440	2385.6	3840	720	8073.6
7				2419.2	5180	2783.2	4480	840	9419.2
8				2764.8	5920	3180.8	5120	960	10764.8
9				3110.4	6660	3578.4	5760	1080	12110.4
10				3456	7400	3976	6400	1200	13456
11				3801.6	8140	4373.6	7040	1320	14801.6
12				4147.2	8880	4771.2	7680
13				4492.8	9620	5168.8	8320
14				4838.4	10360	5566.4	8960
15				5184	11100	5964	9600
16						6361.6	10240
17						6759.2	10880
18						7156.8	11520
19						7554.4	12160
Sheet1