VBA Macro to paste the values with row and column alignment automatically.

[Sathish G]

HI Everyone,

I need a macro to align my results in same sheet according to last maximum used rows from multiple columns.

I have given image link that how am expecting result that will give exact idea.

Please check and do the needful your support will be very helpful for me.

Image link given below.

https://ibb.co/vcQTVQB----> Actual result.
https://ibb.co/pzkvcHB----> expected result



Here is my current code.

Sheets("Sheet1").Select
Columns("AA:AA").Select
Selection.AutoFilter
ActiveSheet.Range("$AA$1:$AA$200000").AutoFilter Field:=1, Criteria1:= _
"=< fruit**", operator:="xlAnd
Range(" aa2").select
   Range(Selection, Selection.End(xlDown)).Select
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
End With
Selection.AutoFilter
Columns("AA:AA").Select
Selection.AutoFilter
ActiveSheet.Range("$AA$1:$AA$200000").AutoFilter Field:=1, Criteria1:= _
"=**", Operator:=xlAnd
Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
End With
Selection.AutoFilter
Columns("AA:AA").Select
Selection.AutoFilter
ActiveSheet.Range("$AA$1:$AA$200000").AutoFilter Field:=1, Criteria1:=RGB(68, 114, 196), Operator:=xlFilterFontColor
Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Sheet1").Select
Selection.AutoFilter
Columns("AA:AA").Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...column-finding-used-row-multiple-columns.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).