Improve company productivity with a Business Account.Sign Up
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range
Dim r As Range
Dim rCopyRange As Range
Set wkb = ThisWorkbook
Set wks = wkb.ActiveSheet
Set rCopyRange = wks.Range("B2:G2")
Set rng = wks.Range("B4", wks.Range("B" & wks.Rows.Count).End(xlUp))
For Each r In rng
If r.Value <> vbNullString Then
If r.Font.Bold = True Then
rCopyRange.Copy r.Offset(-1, 0)
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.