[Solved] add calculation to next blank cell in row

add calculation to next blank cell in row

hello all i am trying to add a worksheetfunction to 3 cells *1 *2 *3 1 and 2 are working fine but i cant get 3 to work! basically its in another wsheet and i want it to populate the next blank cells in column "a"

any ideas! 

Sub countplaced()
Dim w1 As Worksheet
Dim lr As Long
Dim lr2 As Long
Dim wsf1 As Variant
Dim wsf2 As Variant
Dim w2 As Worksheet

Set w2 = Sheets("reports")

Set w1 = Sheets("fulldata")
lr = Range("m" & Rows.Count).End(xlUp).Row
lr2 = Range("a" & Rows.Count).End(xlUp).Row

wsf1 = Application.WorksheetFunction.CountIf(w1.Range("m2:M" & lr), "PLACED")  *1
w1.Range("P8") = wsf1

'w2.Range("a1:a" & lr2) = wsf1    *3

wsf2 = Application.WorksheetFunction.CountIf(w1.Range("m2:M" & lr), "Not placed")  *2
w1.Range("P9") = wsf2

Keys to the Problem add calculation to next blank cell in row

Download Error Fixer (Free)

Run CHKDSK

• Go to the Start button.
• In the Search box, type "cmd" (without quotes) and press Enter.
• At the command prompt, type "chkdsk /r /f" (without quotes) and press Enter.
• Reboot your computer.

Recommended Method to Fix the Problem: add calculation to next blank cell in row:

How to Fix add calculation to next blank cell in row with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer.  Open it, and it will perform a scan for your system. The errors will be shown in the scan result.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. When the Fixing part is finished, your computer has been speeded up and the errors have been removed

Related: [Solved] Applications have stopped working with SP1 on Windows 7!,[Solved] I can't find auto complete text in word 2007,[Solution] I need to keep reinstalling eHome Infrared Transceiver driver everytime my computer shuts down.,How to Resolve - system restore not working windows 7?,Unable to open embedded word file on the intranet. [Solved],Solution to Error: Error: "0x81000032 make sure the C: drive is online and set to NTFS" when trying to backup to external hard drive.
,Troubleshoot:External Hard Drive not listed in Windows 7 backup wizard Error
,I'm always being signed off so annoying Tech Support
,Solution to Problem: Impossible to use Internet Explorer! I keep getting the same error message every time i try to use IE.
,Solution to Problem: Referencing data in another file
,[Anwsered] Thinkpad 8611 Boot,How to Resolve - Svchost Helper?,Fast Solution to Problem: L30 101 Driver Windows 7,Troubleshooter of Error: Io Device,How to Fix Error - Dell Laptop Code 39?
Read More: a window comes up and says the item \"AutoRecovery save of Document2.asd\" that this shortcut refers to has been changed or moved, so this shortcut will no longer work properly.,ActiveX RichTextBox in LabWindows/CVI,[Solved] Active Window Dropping Out,Solution to Problem: ActiveCell.offset how to use a named variant,Troubleshoot:Add 'string of text' to data from column that has 8000 rows then auto populate a new column with combined string of text + number from original column. Error,Cannot delete empty file icon on desktop...,Cannot download flashplayer,can't get the CIA review progrom install which is an older version,Cannot access one website-DNS server not responding.,Can't Receive or Send Vista Windows Mail - Router stopped recognizing DSL connection & wants to dial up