How can I move cells ? - VBA

Hi and Welcome to the Forum

Before addressing the issue of 100 + Excel files ... could be wise to fix the problem for one ...

Much more efficient than a picture, why don't you attach a sample file ... showing your expected result ...

Hello,

Thanks for the sample file ...

But what is your expected result ... ???

Do you need times in Column E to be copied to Column D ...???

Quote from karankmr189874

Data is showing like this, but it should show like this

Hope you can help me.

Why Rows 3 and 4 do not get adjusted ... ???

Is there a special reason ...???

You are welcome.

For Future Readers

Sub MoveColumns()
Dim c As Range, rng As Range
Dim lastr As Long, i As Long
lastr = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row
Set rng = Range("D2:D" & lastr)
    For Each c In rng
        If Not IsEmpty(c) Then
            i = c.Row
            Range("D" & i & ":R" & i).Cut Range("E" & i & ":S" & i)
        End If
    Next c
Columns("A:A").Delete Shift:=xlToLeft
End Sub

Multiple cross poster

How can I adjust the content in excel?

Hello, I need help from you guys. I have a excel file. In the file, in few columns, data star from column d and, in few coulumns it start from column E. But…

www.mrexcel.com

and

How can I adjust the content in excel?

and

and

Thanks for bringing up : Multiple cross poster