Add blank cell after each Sunday

[Vishaal]

HI,

thanks

we want to add blank cell after each sunday, help pls

Date	Week
01-Jan-19	Tuesday
02-Jan-19	Wednesday
03-Jan-19	Thursday
04-Jan-19	Friday
05-Jan-19	Saturday
06-Jan-19	Sunday
07-Jan-19	Monday
08-Jan-19	Tuesday
09-Jan-19	Wednesday
10-Jan-19	Thursday
11-Jan-19	Friday
12-Jan-19	Saturday
13-Jan-19	Sunday

any code or vba

 

[Joe4]

Are the dates and days you show hard-coded, or formulas?
What columns is this data in?

 

[Vishaal]

Are the dates and days you show hard-coded, or formulas?
What columns is this data in?

hard-coded dates and days

column is A and B

 

[Joe4]

This should do what you want:

Sub MyInsertRows()

    Dim r As Long, lr As Long
   
    Application.ScreenUpdating = False
   
'   Find last row with data in column B
    lr = Cells(Rows.Count, "B").End(xlUp).Row
   
'   Loop through all rows from bottom to top
    For r = lr To 2 Step -1
        If Cells(r, "B") = "Sunday" Then Rows(r + 1).Insert
    Next r
   
    Application.ScreenUpdating = True

End Sub

 

[Vishaal]

Thanks Joe4, its working in my case

many thanks bro

 

[Joe4]

You are welcome.