Shifting information from multiple columns to one column

[Elceller in distress]

I made a macro that copys the information foorm mutiple columns and pastes
the information into a new sheet. The information can be in column:
"A","B","C" or "D" as shown. Is there a way to shift all of the information
to column "A"?

I have this now: (Info put into multiple columns)
A B C D
Info1
Info2
Info3
Info4
Info5

Desired ResultInfo shifted to column "A")

A B C D
Info1
Info2
Info3
Info4
Info5

Thanks for your help

[Gazeta]

Użytkownik "Elceller in distress"
<Elcellerindistress@discussions.microsoft.com> napisał w wiadomości
news:5662773B-2A99-42CD-9B89-189A3156F841@microsoft.com...
> I made a macro that copys the information foorm mutiple columns and pastes
> the information into a new sheet. The information can be in column:
> "A","B","C" or "D" as shown. Is there a way to shift all of the
information
> to column "A"?
>
> I have this now: (Info put into multiple columns)
> A B C D
> Info1
> Info2
> Info3
> Info4
> Info5
>
> Desired ResultInfo shifted to column "A")
>
> A B C D
> Info1
> Info2
> Info3
> Info4
> Info5
>
> Thanks for your help

try
Sub fill()
For Each cell In Range("a1:a" & ActiveSheet.UsedRange.Rows.Count)
If cell.Value = "" Then
cell.Value = cell.End(xlToRight).Value
cell.End(xlToRight).ClearContents
End If
Next
End Sub
mcg

[Elceller in distress]

Thanks "It Worked!"

"Gazeta" wrote:

>
> UÂżytkownik "Elceller in distress"
> <Elcellerindistress@discussions.microsoft.com> napisaÂł w wiadomoÂści
> news:5662773B-2A99-42CD-9B89-189A3156F841@microsoft.com...
> > I made a macro that copys the information foorm mutiple columns and pastes
> > the information into a new sheet. The information can be in column:
> > "A","B","C" or "D" as shown. Is there a way to shift all of the
> information
> > to column "A"?
> >
> > I have this now: (Info put into multiple columns)
> > A B C D
> > Info1
> > Info2
> > Info3
> > Info4
> > Info5
> >
> > Desired ResultInfo shifted to column "A")
> >
> > A B C D
> > Info1
> > Info2
> > Info3
> > Info4
> > Info5
> >
> > Thanks for your help
>
> try
> Sub fill()
> For Each cell In Range("a1:a" & ActiveSheet.UsedRange.Rows.Count)
> If cell.Value = "" Then
> cell.Value = cell.End(xlToRight).Value
> cell.End(xlToRight).ClearContents
> End If
> Next
> End Sub
> mcg
>
>
>