If values are de same, merge cells in another column.

[EWSDustin]

Hi to all,

First time posting, I was no able to attach the MiniSheet, sorry for the looks!
I'm still at basic level with Macros, but I am looking to simplify something that is taking me hours each week, to a simple clicks.
I'm stuck with something super simple to do manually (merge cells), but that cost to much time going one x one.

What I would like to achieve,
Column "Measure" will always indicate the total number of articles that are repeated in column "Articles". What I need is that the values of "Measure" are combined matching the repeated values from "Article". In other words, a macro where I can combine the cells from column "Measure" and "Reduction" that contain a value with those blank cells that are above it.
The spreadsheet is updated weekly, with different amounts each time, approximately 300 to 500 rows so it is not practical to do it manually one by one.
Thank you very much for trying to help me.

A picture says more than a thousand words, so attached how I receive the information (before), and how it should look (after).

Also, I add below the data in case its helps to copy paste.

Supplier	Container	Product	Article​	Measure	Reduction
LIDL HK (FOB)​	MSUU2116438​	FRäS- UND BOHRER SET PFBS 4 A1 10TLG./ 12TLG. 4FACH SORT.​	359695​
LIDL HK (FOB)​	MSUU2116063​	FRäS- UND BOHRER SET PFBS 4 A1 10TLG./ 12TLG. 4FACH SORT.​	359695​
LIDL HK (FOB)​	SGRU3660920​	FRäS- UND BOHRER SET PFBS 4 A1 10TLG./ 12TLG. 4FACH SORT.​	359695​	3	3
DELTA-SPORT HANDELSKONTOR GMBH (DDP)​	MSUU2116192​	WINDLICHT GLAS MIT MICRO-LED COSY LIVING 3FACH SORT.​	359798​	1	1
DELTA-SPORT HANDELSKONTOR GMBH (DDP)​	CMAU4790058​	SPIELFIGUREN TIERSETS 4FACH SORT.​	359809​
DELTA-SPORT HANDELSKONTOR GMBH (DDP)​	CRXU9884641​	SPIELFIGUREN TIERSETS 4FACH SORT.​	359809​
DELTA-SPORT HANDELSKONTOR GMBH (DDP)​	TCNU6256870​	SPIELFIGUREN TIERSETS 4FACH SORT.​	359809​	3	1
DISTRA (DDP)​	CCLU4925063​	M JACKE FLEECE THERMO SKI 2FACH SORT.​	363054​
DISTRA (DDP)​	OOLU7710090​	M JACKE FLEECE THERMO SKI 2FACH SORT.​	363054​	2	1
DAYTEX (DDP)​	OOLU8959262​	D PYJAMA KURZ/LANG WIRK/WEB 3TLG. 2FACH SORT.​	363114​	1	1
DISTRA (DDP)​	BMOU4408564​	D HAUSANZUG FLEECE 2TLG. 2FACH SORT.​	363258​
DISTRA (DDP)​	CBHU9017428​	D HAUSANZUG FLEECE 2TLG. 2FACH SORT.​	363258​
DISTRA (DDP)​	OOLU8765539​	D HAUSANZUG FLEECE 2TLG. 2FACH SORT.​	363258​
DISTRA (DDP)​	TCLU8719719​	D HAUSANZUG FLEECE 2TLG. 2FACH SORT.​	363258​
DISTRA (DDP)​	UETU5317535​	D HAUSANZUG FLEECE 2TLG. 2FACH SORT.​	363258​	5	3

 

[kweaver]

This seems to be A way to do it. I'm sure there are more elegant ways.

Sub MergeRows()
Dim lr As Long, i As Long, o As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
While lr > 1
  If IsNumeric(Cells(lr, 5)) Then
    o = Cells(lr, 5)
    i = lr - o + 1
    Range("E" & i & ":E" & lr).Merge Across:=False
    Range("F" & i & ":F" & lr).Merge Across:=False
    lr = lr - o
  Else
  lr = lr - o
  End If
Wend
End Sub

 

[EWSDustin]

This seems to be A way to do it. I'm sure there are more elegant ways.

Sub MergeRows()
Dim lr As Long, i As Long, o As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
While lr > 1
  If IsNumeric(Cells(lr, 5)) Then
    o = Cells(lr, 5)
    i = lr - o + 1
    Range("E" & i & ":E" & lr).Merge Across:=False
    Range("F" & i & ":F" & lr).Merge Across:=False
    lr = lr - o
  Else
  lr = lr - o
  End If
Wend
End Sub

Thanks Kweaver, it worked!
I am not used to ask for help, not because of pride, but because I don't want to waste other people's time. I have been a chaotic self-learner with Excel for about two years, and I can remember a thousand situations where I always thought how comfortable it would be to be able to ask the doubts to an expert, but I never dared to participate in a forum.
I hope now not to send 200 questions in a week haha

Quick question, it works perfectly, but when I activate it a second time, it blocks me in all Excel cases as if it was asking for something that it cannot process. It is not very important since I will put it in a template, in which I will put that the one who selects the button twice will go through a trap door straight to a shark aquarium, Austin Powers style.
Thanks again!