Loop to move column contents

[XfortunaX]

Hi!

I am currently stuck. I am attempting to create a loop that goes from the bottom of the range up in column F. If nothing is in the cell, move to the next row. If a cell in column F has content, moving the content from D, E, and F to the left. I was manually going into column C and delete Shift:=xlToLeft. I cannot get the loop to work.

From this:

CheckNumber	RoutingNumber	AccountNumber	Amount	2004004142	-	H	SALES	LLC
11062	1111111	122222	$2,390.31	3
1115	1111111	122222	$2,000.00	3
3219	1111111	122222	$166.64	3
995930	1111111	122222	$5,630.89	3
125124	1111111	122222	$1,374.06	3
559145	1111111	122	122-12222-001	$800.00	3
4219	1111111	122222	$1,500.00	3

<tbody>
</tbody>

To this:

CheckNumber	RoutingNumber	AccountNumber	Amount	2004004142	-	H	SALES	LLC
11062	1111111	122222	$2,390.31	3
1115	1111111	122222	$2,000.00	3
3219	1111111	122222	$166.64	3
995930	1111111	122222	$5,630.89	3
125124	1111111	122222	$1,374.06	3
559145	1111111	122-12222-001	$800.00	3
4219	1111111	122222	$1,500.00	3

<tbody>
</tbody>

Thank you!

 

[Fluff]

How about

Sub XfortunaX()
   Range("F2:F" & Rows.Count).SpecialCells(xlConstants).Offset(, -3).Delete xlToLeft
End Sub

 

[XfortunaX]

That works! Thank you.

 

[Fluff]

You're welcome & thanks for the feedback