Use this :
Sub Data_Formatting()
Dim rw As Long
For rw = 17 To ActiveSheet.UsedRange.Rows.Count Step 6
With Worksheets("Required").Range("B" & Rows.Count).End(xlUp)
.Offset(1, 0).Value = Range("D" & rw).Value
.Offset(1, 1).Value = Range("D" & rw).Offset(3).Value
*FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
will not get quick attention or may not be answered.*
-- Forwarded message --
From: Dhaval Shah todhavals...@gmail.com
Dear experts,
I have lower level knowledge in excel vba, so please check below coding
which not working. I need the Msgbox when entered value match from another
sheet. The example sheet attached herewith. Please also know the basic
rules of how to use excel function in Visual Basic.
If
-- Forwarded message --
From: syed aliya raza hashim hashim...@gmail.com
Date: Mon, Jul 11, 2011 at 6:06 AM
Subject: Fwd: $$Excel-Macros$$ need help
To: koul.ashish koul.ash...@gmail.com
-- Forwarded message --
From: syed aliya raza hashim hashim...@gmail.com